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3.2.2.230.12 *i2°.Li£.D.Ql» ~ 

while AS.IO.S list of dec I is not at en d> loop 

set sm„ooj_tyoe of id to a s_t y pe_spec of deel> 

set sin, i n i t„exp of id to as.ob ject.de f of decl; 

advance position in seq of ids; 
end loop; 



3*2.2.230.13 iiasaaiiis Ssssaass Ssasialsjl* - ^one 



3.2.2.230.14 £ia(Sal£i 2l lLLil£iU£££- - None 



3.2.2.231 Iud°.£ii2£2!n» ~° constant.var 



3.2.2.231.1 2l!i£o.C;Se.. - Perform name resolution on and declare a constant? 
parameter* variable component* or object declaration. 



3.2.2.2 3 1.2 ASS.USfiUs.iSLILS* " None 



3.2.2.231.3 l22i*l£2.iaJLL2D. Lan qua ge . - This subprogram is written in Ada. 



3.2.2. 231.4 y,££d. £e.£iLSiveJ.£. - This subprogram is not used recursively 



3.2.2.231.5 Ne.s.£,e,d. iiitlill* - objects 



3.2.2.231.6 H25l QlSfi.S.O.llSO.SLiS.S.* *" None 



3.2.2.231.7 Ta r£3 i Qe.o.en £ e.n c.j.e.,2 • - None 



3-591 



"Use or disclosure of technical data and /or computer software 
is subject, to the restrictions on the cover of this Document." 



ALS Conoiler *1ach i ne-I ndeoenden t Section C5 Soec i f i cat i on CR-CP-0059-C84 
1 November 1*33 



3.2. 2. 231. 6 iij2£L 2££im Viii2.iiii.X» - within Package Only, 



3.2.2.231.9 £<i2£ii2a£li£2iia5LUL£« ~ This subprogram is a Procedure* 



3.2.2 .23 1.10 £af.2al Parameters. - 

variable •: in boolean; — set to true if a variable 

declaration 

decl : in cdm^t ypes . c.node.r e f » — the decl to be processed 



3.2.2.231.11 iii5-£f.f.e.c.is.. - Sets cur rent .id (global) by side effects. 



3.2.2.231.12 AiaflLiitia* " 

invoke "dec I s • i d.s" with as^id.s of decl; 
invoke "aec I s .as„ty pe_spec" ; 
i f ERRQR> then 

mark decl as in error; 

return; 
end i f » 

if PARAM_PL4G not set> then 

check that decl's type is contrained; 
if £RRQR> then 

invoke "d i agnose .rag" for error 14895; 
return; 

end if; 
ena if; 

invoke "dec I s.ob j_ i n i t '* ; 
if ERRORS then 

mark decl as error; 

return; 
end if; 

if AS_TYPE_SPEC indicates a () private type> then 
invoke "d i a gnose • ms g " with decl for error 14086; 
return; 

end if; 

if A non— deffered constant or variable id> then 

reset sm_ooj_type and sm_init_exp attribute of redefined 

any deferred constants to that of the redefiner; 
invoke "dec f s • se t_cv_i ds" ; 

else invoke " dec 1 s • set^dc.i ds" ; 

end if; 
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3.2.2.231.13 ^iaaaaiiia Sasiaasa Steaaiaiia- - 

sev«=RiTY 

14086 E objects nust not be declared of a limited private type 

before full declration of that type 

14895 £ type must be contrained in this context 



3.2.2.231-14 SLxajEaJ.e.& 2t Q&ia S tr uc t^u r.'ss. - None 



3.2. 2. 232 SuifiLS.2£3iS» ~ exc eo t i on_dec 



3.2.2. 232.1 Pit£aa5.e,. - Check and declare an exception declaration. 



3.2.2. 232.2 ASSiiEBliailS* - None 



3.2.2.232.3 IfflJ2lS12,a£aiii2Q, LlQ.2Ua.3S • *" This subprogram is written in 4da 



3.2.2.232.4 Us.ea; SS,£U.£Si^£il« ~ This subprogram is not used recursively, 



3.2.2*232.5 Nfisj^sa. Wj.£kin. - objects 



3.2.2.232.b tl21i £££L£Q.i2£ n .SLjLSiS« ~ None 



3.2.2.232.7 Lir<je.£ Q£2e.nd,e.ncJLe.s„ . ~ None 
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3*2*2* 232.6 li!2££9l££.221 £i£ia±li£l» *" Within Package Only* 



3*2*2*232*9 fLU2aii2Q£Er.aS£&UE£« - This subprogram is a Procedure* 



3. 2*2*232. 10 Earjaai £ > a£,aasi.s£5« ** 

decl : in c dm., types* c.node.re f i — the exception dec!* to be 

processed 



3.2*2.232.11 £ia£::SLLL2.£ii» - Set global current_id* 



3.2.2.232.12 AiafiULitiia*. " 
invoke "dec I s • i dent" 

set sm_excep t i on^de f of decl's id to 

as_except i on^def of dec I J 
if A5.EXCEPTI0N.0EF is not void> then 

set current^id to id; 

invoke "dec I s • r ename '* with decl reset current_id to void; 
end if; 



3.2.2.232.13 aiaaaaaiis ^siaaaa^ S£n£r.aissl- - none 



3.2.2.232.14 EjiaffiftlSi 2l !U.a£lU£££- - None 



3*2*2*233 E.aa&slS£« "* match 



3.2*2*233.1 2,y.£aas.£« ~ Contains routines to match subprograms with each other 
f or equi va J ence* 
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3.2.2.233.2 Nu.m2e.r 2L ~ None 

3.2.2.233.3 SaaSQ2S0.£iSS. 20. t&S.)L2.2L2.1 i2L 12,2.0,' ' cdm.type 

3.2.2.233.4 Aadiliaail QaaafllaasiaS l2£ Sail* ~ Mst.seq* c.node.at get _ I x » 
get_as» get.sm, traversal 

3. 2.2. 233.5 tiz&azs. SaaaiiiaaLian • - 

— visible outside package 

type class is ( equ i va I ence» r edec lara t i on ) ; — type of matches possible 
3.2.2. 23 3.6 ilifi, 2 Lilian £ala* ~ None 



3.2.2.233.7 £2£2!Qalaa 21 5.££USiU££S«> - None 



3.2.2.234 f.aaiSSaa« • reps 



3.2.2.234.1 Pj.£a25.a« ~ Define a set of routines and auxiliary data structures 
to perform name resolution upon representation specifications. 



3.2.2.234.2 ily.2^S£ 2l Saa2£22.£l!2S • "* 5 



3.2.2.234.3 Q^aaadaaaias aa QIqsl £aa*aaa£ tat iaaa. - cdm.type 



3.2.2.234.4 Aadj.liaQ.ai QaaaadaaaiaS la£ fLalY.* ~ vistrse» search* exps» stm„s» 
derived* diagnose* new_nodes» get^as? put _as ♦ get„sn* put.sui get.ixi pu t_ i x i 
get_vs» put_vs» get_ft» put_ft» I i st _s eq » array„seq» cdm_b_str» prag_avns» 
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3. 2.2. 23 4.5 PiC.|<aa£' iiaai.Lia3.liaa* 

— yisiole outside package 
oroceoure simple_rep • •«; 
procedure recora.rep 
proceaure address • ••» 



3.2.2.23 4.6 Eiaaataliaa £aaa« - None 
3.2.2.234. 7 £ia<BaiS5. fii Gala ilLUaiUtaS* - None 
3.2.2.235 iu.2ar-0.2£am. - simple_rep 



3.2.2. 235.1 P^f-aaSS.' Checks semantics of and performs name resolution upon a 
simple representation specification. 



3.2.2.235.2 *SSa2!aiLi2fl2* ~ None 



3.2.2. 235.3 IfflaiasiaaJLaiiaa Laaauaai* ** This subprogram is written in Ada. 



3.2.2.235.4 UsLsa £aaaf.aiiai}!> ~ This subprogram is not used recursively. 



3.2.2.235.5 Ne.s.lsa &iiai£« *" reps 



3.2.2.235.6 tiaSl Qsaaaa'SIiaxaS.* - None 



3.2.2.235.7 liLaal UaaaaaaaaiSJL* "* None 
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3.2.2.235.6 Siii2a£ii2£2S ¥iSii2±lilY. • " Within Package Only. 



3.2.2.235.9 Eiiri£ii£aZ.£L2..£S.SlU£3 ♦ ~ This subprogram is a Procedure. 



3.2. 2.235. 10 £2L2al P-aLaiSSiSLi • - 

s.rep : in c_node_rep; «— the simple rep. spec, to 

be processed 



3.2.2.235.11 iii£=£iis.£l£« - None 



3.2.2.235.12 A J n 2£r_j > £h m. - 

invoke "EXPS.£XP M with as_nam« of s_repl 
if ERR0R> then 

mark s„.rep as in error; 

return ; 
end i f J 

check that name is either a type name* (not a subtype)* or a 

derived type* with an attribute or a (derived or not) enumeration type 

name; 
if £RR0R> then 

invoke "d i agnose. msg" with s_rep for error 14139; 

return; 
end if; 

if AN enumeration type> then 

check that only a selected or identifier form of name is used* 
if PRR0R> then 

invoke '*a f agnose.msg" with s.rep for error 14140; 
return; 
end i f ; 

else invoke '* de els. attribute"; 

check that this is only one of the following attributes : 

ac tua I .de I ta * stor age_ s i ze * size; 
if £RRuft> then 

invoke M d i agnose.msg" with s.r ep for error 14141; 
return; 
end i f ; 
end i f ; 

if TYPE in either case above has derived user defined subprograms 
(a glooal attribute if type deel tells this)> then 

invoke "d i agnose. msg" with s_rep for error 14142; 

return; 
end i f » 

check that this type is declared in the same deel part only as this rep; 
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i f EK^0R> t*en 

invoke "oiagnose.msg" with s_rep for error 14143; 

return; 
eno if; 

invoke "EXPS-CXP" with as.exp of rep; 
if ERR 0P> then 

mark s.rso as in error; 

return; 
eno if; 

if AN enumeration type rep> then 

check that as.exp of s.rso is only a single aggregate; 
if SRRQR> then 

invoke "a i agnose.msg" v*ith s_rep for error 14144; 
return ; 
end if; 
end i f ; 

check that tnis type does not already have a enumeration type length 
spec, already given for it (check temporary attribute of trie type 
decl ) ; 

if ERRGR> then 

invoke n diagnose•msg ,, with s_rep for error 14145; 

end if; 



3 ,2. 2. 235 .13 LLUaafiifciS. 2£2a2£Si SSQSLalS^- - 



SEVERITY 



14139 

14140 
14141 

14142 

14143 



i I legal f orm 

for this type 



of 



representation 



illegal form of name in this context 

illegal attribute for this 

spec i f i c at i on 



spec tf I ca t i on 



r epresentat i on 



representation specification nust not be 
for types with derived user defined subprograms 



given 



representation specifications nust only be given for 
types in the same declaration part 



/14144 E illegal representation 
enumeration type 



expression 



for 



an 



14145 



illegal repetition of reoresentat i on specification 
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3.2. 2.23 5. 14 5.*i2iiiS£ 2l fcLd'l'a, ilLUalUUti* - Nona 



3.2.2.23b lua2X£L2L3!n» ~ f ecord.rep 



3.2.2.23b. 1 - Check samant i c va I i d i t y of and oerform name resolution 

on record representation specifications. 



3.2.2.23 6,2 ia£yJHfi£i<in,$« ~ None 



3.2.2. 236.3 Il0.isaaaiai.ii2n L2.Q.2Jia.£S • " This subprogram is written in Ada. 



3.2.2. 236.4 'iisa S£S.lL£iiLa.lx« " This subprogram is not used recursively. 



3.2.2.236.5 ailaia* - reps 



3.2.2.236.6 Hail !2saaH£2S2S.iai» " None 



3.2.2.236.7 -XiLas.lt Q£fi.£Q&S.H£>±S..S, • ~ None 



3.2.2.236.8 Su2fi.LaSf.ai2 iiiiailiJLX* " Within Package Only. 



3.2.2.236.9 net i on /Procedure . - This subprogram is a Procedure, 



3.2.2.236.10 £a£!3al P.aca!2Si£f.S- " 

rep : in c_.node.rep? — the record rep. spec to be 

processed 
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3.2.2.23t>«ll iiQ.S;£X.l§.c.is . - None 



3. 2. 2. 236,12 2JUfi£.U!2ai- - 

invoke "EXPS. EXP" with as.name of rep 
if ERRQR> then 

mark rep as error; 

re turn i 
end i f ; 

check that name is only a selected form or an identifier* 

indicating a record definition; 
if ERR0R> then 

invo«e "diagnose.msg" with rep for error 14145; 

re turn; 
end i f ; 

check that record type is defined in the same decl part only 

(a field of possible def); 
if SRRQR> then 

invoke "a i ago s e. ms g H with rep for error 14147; 

return; 
end if; 

check that the record type does not already have a record rep set 

for it (temo. attribute); 
i f ERRQR> then 

invoke "d i agnose. msg" with rep for error 14143; 

return; 
end if; 

mark record type as "record rep seen"; 
if AS^EXP is not vo i d> then 
invoke EXPS.EXP" with as.exp) 
i f ERRUR> then 

mark reo as in error; 
return; 
end if; 
end if; 

if A derived record type that has user defined subprograms it 
nas derived (a temp, attribute of type)> then 

invoke "d i agnose, ms g" with rep for error 14149; 

return; 
en d i f ; 

else invoke " dec I s • as.comp.rep.s" ; 
end if; 

i f ERRQR> then 

mark rep as in error; 
end if; 
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3.2.2.2 3 6.13 ^ia£Q2S.Li2 £e.£5.3.<ie£ &£.0.2X2i£&« ~~ 

SEVERITY 

14146 £ illegal form of name in this context 

14147 £ reo resen tat i on specifications must only be 

given for types in the same declaration part 

14148 £ ill-gal repetition of representation specification 

14149 £ Types *i th user defined subprograms must not 03 given 

representation specifications 



3.2.2.236.14 ££ajSpJ.e.S, 2l lk£U£tUf.££* - None 



3.2.2.237 2ufiLata2C.il* " as „comp_r ep_s 



3.2.2.237.1 £si£aaS£» ** Check semantic validity of and perform name resolution 
upon component representation sp-ec if i cat i ons • 



3.2.2.237.2 *iSUISaJLiaiIS» ~ None 



3.2.2.237.3 l2Qie.se Q£a.£i<2n L2,G,£U2,2£ • - This subprogram is written in 4da. 



3.2.2.237.4 !i5,e.d. S££'J.££iY.£l}iL» ~ This subprogram is not used recursively. 



3.2.2.237.5 USaLLgfl 1 aLLlfiiD.* " reps 



3.2.2.237.6 HasJ* Qso.enjJe.nc.xS5.* "* None 
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3*2. 2. 237. 7 lir-^al ££fi£Il££n£i.S.5« ~ None 



3. 2. 2. 237 .3 Snaar as£affl ii£i.aiii.£Y.» ~ within Package Only, 



3.2.2. 237,9 Fy.ncJkiaaZ.F.r.asaSiUIS* - This subprogram is a Procedure. 



3 .2. 2. 237. io Formal PaLaaalsi:^ ~ 

rep : in c.node^rep; — the record rep containing the 

comoonent reps to be checked 



3.2.2.237.11 S.i4e.-£it££il- - None 



3.2.2.237.12 &ia2£.il!2!2» - 

while SEQUENCE of component representations not at end> loop 
invoke "EXPS.EXP" mith as.nante of component repj 
i f ERRQR> then 

mark sequence as error; 

return; 
end if; 

check that as.name indicates a component of the record in 
selected component or identifier form only; 

i f ERR0R> then 

invoke "d iagnose.msg'* with sequence for error 14150; 
return; 

end i f ; 

if COMPONENT not already given a reo> then 

mark component as given a rep; 
else invoke ™d iagnos e.msg ,f with sequence for error 14151; 

return; 
end if; 

invoke "EXPS.EXP** with as_exp of component repj 
if E RRQR> then 

mark sequence as error; 

return; 
end if; 

invoke "dec I s • as.r ange" with as.range of component rep; 

i f ERRQR> then 

mark sequence as error; 

return; 
end if; 

advance position in sequence; 
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end loop; 



3.2.2.237. 13 iiasQasAia *££S.a2e3 ££aSL2isa- - 



SEVERITY 



14150 



name must indicate a record component only 



14151 



illegal repetition of representation specification 



3.2.2.237.14 =£a,2&i££ 2l CUla l££li2Ulf.SS« - None 



3.2.2.23a Sji£»o.£o.a£,a,m. - reps 



3.2.2.236.1 PjLf.225.et* - The particular representation specification is checked 
and a routine is called to perform name resolution on this particular rep spec. 



3 .2.2.236 .2 liiiiaaiiaQS. - None 



3.2.2.233.3 Ia2lsaS.2i3Li.i2CL Language, . - This subprogram is written in Ada. 



3.2.2.23U.4 U5.22 S2£U£sJ.X2ll« ~* This subprogram is not used recursively. 



3.2.2.238.5 



MaS-Lsa* fcULlhln. *" reps 



3.2.2.238.6 



U2SI asaaadsniiSS. - None 
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3.2.2.234.7 



liCSSi U£2£Q32.2£i2.S« ** None 



3.2.2.238.8 



2iJi2Ur.2ar.2a liiiaiiilZ* - Within Package Only. 



3.2.2.238.9 



£UQ££ifiQ.£f.£o.£a£iU££« ~ This subprogram is a Procedure. 



3 .2.2.23 6 .10 £aL2§X P,ar aw^^fSt 



rep 



in cdm_types • c.node.r ef $ 



the representation spec to be processed 



3.2.2.23 8.11 Siil5s£liafits. - None 



3.2.2.238.12 AJLaflfJ,I&in» - 
CASE trep type> of 

SIMP.LE.REP>: invoke "dec I s. s imp I e.rep" ; 
ftECORD.REP>: invoke "dec I s. r ecor d.rep"; 
aD0RESS>: invoke "dec I s. address "J 
end case; 



3.2.2.238.13 iiaa Q0 .s.iic. (isiiaEsi GsQaiaiasl- - ^one 



3.2.2.238.14 tiaffittlSS. 2£ Qaia Ii£U£tU£S£« - None 



3.2.2.239 iy.&U£2.£LS'31« - address 



3.2.2.239.1 Pu£8.2S£« - This routine performs name resolution and checks 
semantics of address r eoresentation specifications. 
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J. 2.2. 239,2 £i£U2a£i2,Q.l« ~ None 



3.2.2.239.3 Isaisaaaialifla L2.aaU2a*« • This subprogram is written in Ada. 



3.2.2«239.4 JJiaa" Eac.iiLLiiy.SJLi> ~ This suborogram is not used recursively. 



3.2.2.239.5 Ne.s.£.gfl" sLLlaia* " reps 



3.2.2.239.6 Has.! ii£ae.adaas.i£2- - None 



3.2.2.239.7 Xaxsa£ QeaaadaafiiaS • - None 



3.2.2.239.8 ^jboronraro Vtsib ii j.fcy.« - Within Package Only. 



3.2.2.239.9 &uaa£.iaa££.JL2.£aa , Ji£.a • - This subprogram is a Procedure. 



3.2.2.239.10 Fatisal P axifflatatSL* ~ 

rep : in cd r n_types.c_node_ref ; — the address repres. spec, to be 

o rocessed 



3.2.2.239.11 5.ias=£iiaai5» - None 



3.2.2.239.12 y.22£.i£ai2« - 

'invoke "EXPS.FXP" with as_name of rep; 
if ERR0R> then 

mark rep as in error; 

return; 
end if; 

check that as.narae is declared in the same decl part; 
if ERR0R> then 

invoke "diagnose.msg" with rep for error 14125; 
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rsturn » 
end if; 

check that name indicates a subprogram entryi package* task* 

or object only; 
i f ERRUR> then 

invoke "d i agnose.msg" with rep for error 14126; 

return; 
ena if; 

mark the ooject as having had an address rep spec given for it; 
invoke "EXPS. FXP W with as.exp of rep; 
i f ERRQR> then 

mark rep as in error; 

return; 
end i f ; 

if A derived type of object that has derived 
user defined subpr ogr ams> then 
invoke "a i agnose.msg'* with rep for error 14127; 
end i f ; 

3. 2 .2. 239. 13 aiasaaaUs. Sassaass Saaaiaissi* - 

SEVERITY 

14125 E representation specifications nust only be given for 

types in the same declarative par 

14126 E address cannot be given for the named construct 

14127 E representation specifications uust not be given for 

types with derived user defined subprograms 



3.2.2.239.14 iHEOalii of, Q.ai.a. SJ^r_y.c„£,yx£s_. - None 



3.2 .2. 2 40 - redefs 



3.2.2.240.1 Piitaa^e. - Define a set of routines and auxiliary data structures 
to enforce Ada restrictions upon redeclarations. 
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3.2.2.24L5 N£££.£i2 Within • - reoefs 

3.2.2.241.6 tlasi, Q.aaaflsig.n.c.iai.* ~ None 

3 .2 .2. 241. 7 Ia££Si &£&£H£2£ n .&i£l* None 

3.2.2.2 41.8 Iu.Jia£22£afl! Vi ?|b, ^1 I .fry . - Within Package Only. 

3.2.2.241.9 &uH£li2a£££SL£§LalUl.£» - This subprogram is a Procedure. 

3.2.2.241.10 £££.1231 Panamet^exs . - 

redef : in cdm^t ypes .c.node.r ef ; — the type being redeclared 

decl : in cdm.types • c.node_re f » — the type declaration doing 

the redeclar ing 



3.2.2.241.11 liia.az£.Lt£SLk3» " Modifies unredeclared private/incomplete tyoes 
list. 



3.2.2.2 41.12 £i22£jLLhia. - 

check that discriminant parts match for the two declarations? or 

both are void; 
if E RRQR> then 

invoke w d iagnose.msg" with decl for error 14091; 

return; 
end if; 

if AN incomplete type redef i n it ion> then 

delete from unredeclared incomplete types list* 
after finding the decl. on the list using 
••search. searcher edec I are_l i st w ; 

reset sm attribuytes of the id that is redeclared to that of the current 

id; 

else — a private type redeclaration 

invoke "sear ch.s ear ch_r edec I are. I i st" with unredeclared private 

types list to find and delete the decl on the list) 
check that tne type redeo taring the private type is not a task type* a 
I) -private type* someth i ng w i th a component of one of these types* or 

3-60R 

"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Compiler Macn i ne-Indep enden t Section C5 Specification CR-CP-0059-C 8 4 ^ 

1 Noveuo er 1933 j 



3.2.2.2 40.3 Saasaaaaaisi aa 2ina£ £asLhaaas lat iaaa* - cdm.type 



3.2. 2. 240,4 Ajj^iiiaaaJ. CLaaaQilSflSLLSS. LlL &aly.« • vistrae* search* exps* stm.s* 
derived* diagnose* new. nodes* get. as* out. as* get.su* out.su* get.ix* put.ix* 
get.vs* put.vs* get. ft* Dut.ft* llst.seq* array. seq* cdm.b.str; 



3.2.2.240.5 Paa&aaa ias£i.liaaiiaa« - 

~ visiole outside package 
procedure ident • 



3.2.2.240.6 fLiaaar, alias Qada* ~ None 



3.2.2.240.? £&aiBfllss at Slala £l£ll£iULSS« - NO"© 



3.2.2.241 SubQr.ggr.a.ro. - i type.r edef 



3.2.2.241.1 Pu£.ttas,a« - Checks type declarations that redeciare private or 
incomplete types. 



3. 2.2.241*2 ASlUfflflJtiailS* ~ None 



3.2.2.241.3 lafllsaaaiaiiaQ LaaauaSS* - This subprogram is written in Ada. 



3.2.2.241.4 UaSLji 8aaa£SJLy.£iY.« ~ This subprogram is hot used recursively. 
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3.2.2.2 42.5 iie.Ii5Sl <iil!2in« ~ redefs 



3.2.2.2 42.6 t!2Si Qsa£fliJ£2£.iSS» "* None 



3.2.2.242.7 larsgti asfiSQ4e.nsiSS» - None 



3.2.2.2 42.8 lkSa£aS£aa iiiilliiJLiX* - Within Package Only. 



3.2.2.242.^ £uQ£iiflQ/ > P£o.i;e.(ly£,e . - This subprogram is a Procedure. 



3.2.2.2 42.10 Eflcaal - 

redefs : in cdm_types.c„node_ref ; — the redefinitions (in same 

dec! part) to be considered 

decl : in cdm_types. c_node_ref ; — the decl currently being processed 



3.2.2.242.11 - None 



3.2.2.242.12 Aj.2Q.r.j.£h nj. - 

while REDEFS not at end of I i s t > and 

REOEF is in same decl part as decl> loop 
if ( KEQEF IN IT ION is a subprogram equivalent to the current one>) 
and not (THEY are equivalent and redef is a spec and decl is 
a body>) or 

(THEY are equivalent and redef is an implicitly defined 
subprogram ana this is a package spec>) then 
invoke "a i agnose. nsg" with decl for error 14133J 
ex i t ; 
end Hi 

advance position in list; 
end I oop» 

invoKe " v i s tr ee • add_dn t_ent r y w ; 
if NO error) then 

truncate redefs list at current position; 

else set redefs to nu! I? 
end if; 

return NEW dnt>; 
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3. 2. 2. 242,i3 uiasaaiLLa rasaaass Saaaiaisa- - 

SEVERITY 

14133 E illegal redeclaration in same dec I ara t i on par t 



3, 2. 2. 242. 14 txaflialfis. at asia Simaiyxas* - None 



3.2.2.2 43 SyiaflC.flaLHS» • type.redef 



3.2.2.243.1 £u£aaS£» *" Determines tne legality of previous declarations of an 
identifier in the sane decl pact* and returns a list if they are legal. The 
list is a special format* 



3.2.2.243.2 A^uataiiaQS.* - None 



3.2. 2.243.3 laalSlfiaiaiiaa Liaauaaa* • This subprogram is written in Ada 



3.2.2.243.4 ysga EsaU£liy.aly.* ~ This subprogram is not used recursively. 



3.2.2.243.5 NgsJ^j* Milain* - redefs 



3.2.2.243.6 aasi Qaaaadaaaias* - None 



3.2.2.243.7 iatasi Usaaaaaaaias- - None 
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3.2.2.243.d Sa!2a£o.a£32i ~ Within Package Only, 



3.2.2. 243.9 £ii£l£,ii2!l^£L25£iiy.I.S« ~* T his subprogram is a Function with a 
cdm_types •c_noue - .r ef result type. 



3.2.2.243.10 E2L2ai ZSLLsLBS.%.S.LS. • ~ 

redefs : in cdm^type s. c.node.ref J — a list of previous (same id) 

dec Is in some dec I part 

decl : in cdm_types#c - .node - ref ; — the decl currently being processed 



3.2.2.243.11 SJ.ie.-£it&5.i.£» - None 



3.2.2.243.12 Aiao.£.i£!lffl« " 

if FIRST declaration on redefs list is an inconiolete type 
or a private type> then 

set reoef parameter to this type; 
else invoke w d i agnose. uisg" with decl for error 14134; 

set reaef parameter to null; 
end if; 

invoke "vistree. add_dn t^ent ry°; 
return NEW dnt>; 



3.2.2.243.13 siia.aQfls.tic. iisssaass Ssaataisd- - 

SEVERITY 
££iQ.£ £UaU£** A F, I£XI 

14134 E illegal redeclaration in same declaration part 



3.2.2.243.14 siaaaias. g.1 Q2ia ILLUfilULSS- - None 
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3*2*2.244 iiiilkLaflLaa* - madul e_body_r edef 



3*2»2. 244.1 £u££fl,S2« - Determine the legality of previous declarations of an 
identifier in the sane decl part* and returns a list if they are legal* The 
list is a special format* 



3.2*2. 244,2 lSiuaP.ti.ailS* • None 



3.2.2.244.3 X3QiaiaaQiai.ijaa Laa^uaaa- - This subprogram is written in Ada* 



3 • 2 • 2 • 2 44 * 4 ilsad Recursively » - This subprogram is not used recursively* 



3*2.2.244.5 Jiftiisa '4 iVfti 1 ?,* — r «defs 



3* 2*2* 244. 6 HftSi QgaSQdSQ&iftS* ~ None 



3 •2*2.244. 7 laxafii QaaaadaaaiSS • - None 



3.2.2.244*8 iuaaLflStaiB lisiaiiilX* - Within Package Only 



3.2.2.244.9 EaaaliaaZ.fiiaiiaa'aLa* — This subprogram is a Function with a 
cdm -> types*c - .node - ,ref result type* 



3.2.2.244.10 taXLSai Paramet ers . - 

redefs : in cdm -ll types*c - ,node^ref } — a list of previous dec Is of the 

same id in the same decl part 

decl J in edm^types* c.node_r e f J — the decl currently being processed 
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3.2.2.244.11 iia£r£iiS.S.li.« ~ None 



3.2.2.2 44.12 ilaSLiitia* - 

if ((FIRST dec I on redefs list is a package spec) and 
•OECL is a package body)>) or 
( (FIRST decl or redefs list is a task spec) and 
(dec I is a task oody)>) then 
set reaefs to this spec; 
else invoke M d iagnose • msg" with decl for error 14135 

set redefs to void; 
end i f ; 

invoke "v i s tr ee . add_dn t_en t ry n ; 
return NEW dnt>; 



3.2*2.244.13 iiaan 2s.tic. Massa£«i £saa£.ala£t« - 

SEVERITY 

CQfi£ U±ixZj.U£ I£*I 

14135 E illegal redeclaration in same declaration part 



3.2.2.244.14 iia.iflp.ias. fit j2a.£a Sir ustULSS- - None 



3.2.2.245 £y.il&£Q,SXa.m. - const_redef 



3.2.2.245.1 EliiaaSS* Oeternnine the legality of previous declarations of an 
identifier in the same decl part* and returns a list if they are legal. The 
list is a special format. 



3.2.2.245.2 As,2,y.2.&i.ia>D.S.* "* None 



3.2.2. 245.3 l!2flJL£2S,Jl£,siJLL.2Q, Lan g u,a ,cye . - This subprogram is written in Ada 
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3«2«2*2 4 »t>« < « UsaJl iiiJ.LS.ii3.il* - This subprogram is not used recursively. 



3.2.2.245.5 JiSSlAi 'diiaia« - redefs 



3.2 . 2.245.6 BaSl ttsa&ad&aai&S* - None 



3.2.2.245.7 IaiaSl Qsa£adftH£iS5- - None 



3.2.2.245.8 SiiaftLaatai YiiitliiiiX* - Within Package Only. 



3«2.2.245.9 £uaaliaa^£LaasillUL£ • This subprogram is a Function with a 
cdm_types.c_node <11 ,ref result type. 



3*2.2.245.10 Eataai. Par-assl-sns* - 

redefs s in cdm.types.c^node.ref # — a list of previous declarations 

in the same dec! 

dec I • in cdm.types.c.node^ref ; — the decl current being processed 



3.2.2.245.11 iiaa-£llaai5* - None 



3.2.2.245.12 AlaaLii!lffl« - 

if FIRST declaration is a deferred constants then 

set redef to the constant 
else invoke n d iagnose.msg" with decl for error 14136; 

set redef to void 
end if; 

invoke "v i str ee.add.dn t.entry"; 
return NEW dnt>; 
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J. 2.2.2 45. 13 aia.2Qas.liS. *e.s.s.2.2£S. ££0££2££<2« - 

SEVERITY 
£2S£. f**M*£*ixE I£XI 

14136 E illegal redeclaration in same declaration part 



3.2.2.245.14 ixajsaiSS. 21 iiLU£iUL5S- - None 



3.2.2.24o SaaacaaLSIS* ~ enum_l i tera l_redef 



3.2.2.246.1 Eu.rp.aia* - Determine the legality of previous declarations of an 
identifier in the same declarative oartt and returns a list if they are legal. 
The list is a special format. 



3.2. 2. 246.2 As.s.iinjaiio.n.5. - None 



3.2.2.246.3 liSalSfflSaialiSD. Lmauaas • • This subprogram is written in <kda. 



3.2.2.246.4 Us.e.0. E£S.U.£SiiS.l^» ~ This subprogram is not used recursively 



3.2.2.2 46.5 Ne.s.£.sa Wilkin. - redefs 



3.2.2.246.6 Bail Qsaaa^SHSiSS.* - None 



3.2.2.246.7 laLSSi Deoendenc i e s . - None 
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3.2.2.24o.c iii2£L22Lil Y j s ' 9 '< I 1 1 y . - Within "acKage Only. 



3.2.2.246.9 £unc.ii2QZ.P£fl£e.liJlL2.« This subprogram is a Function with a 
edm.types • c.noae.r ef result tyoe. 



3.2.2.246.10 f.arjjiai £,3x3.2 &£.§.££• ~ 

redef s : in cdm_t ype s.c„.node.„ref ; — a list of decls of the same id 

in the same decl part 

decl i in cdm_types. c.node.re f ; — the decl currently being processe 



3.2.2.2 40. 11 • - ^ one 



3.2.2.2 46.12 &JL.20.£i££lfli. - 

while SEQUENCE of redefinitions is not at end> and 
REDEF is in same decl part as cur rent> loop 
if REDEFINITION list is not an overloadaole type> then 
invoke "d i agnose.msg" with decl for error 14137? 
exit; 
end i f ; 

advance position in sequence; 
end loop; 

invoke ** v i s tr ee • add_dn t_en t r y" ; 
if NO error) then 

truncate redefs list at the current position; 
end if; 
return VQIO>; 



3.2.2.246.13 iiasaaatia &&£&&a£2 ££Q££3i£d. - 

SEVERITY 

' 14137 E illegal redeclaration in same declaration part 
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3.2.2.24e.l4 £5.ai2£i£5. 21 il!2. SiLUS.£liL££» - *one 



3.2.2.2 47 S.Ji2&£°.2Laffl« ~ ident 



3.2.2.247. L Py.£a2SS« - Checks legality of a certain spelling of a declaration 

id. Returns legal previous declarations. Inserts an entry for this dec I in the 

current ant. Creates a new dnt (visibility structure (if this is a scope) and 

returns it. Ail previous declarations returned are in the same decl part. 



3.2.2.247.2 As.3.u&££,i2D.S« *" None 

3.2.2.247.3 laalS&SIlliiiJLiaQ. LflflflUfiaS « ~ This suborogran is written in Ada 

3.2.2.247.4 Uassi "* This subprogram is not used recursively, 

3.2.2.247.5 NfiiiS 0 . aii.ain. - redefs 
3.2.2.247:6 Hfis.£ asaS.a^£QS.i£i* ~ None 
3.2.2.247.7 larg^i, Qependenc, t $ s . - None 

3 .2. 2. 247. 3 $.U2af_2il£.2.21 YiS.iaiiiiY. • - Within Package Only. 

3.2.2.247.9 £uaa£i2a££ r .2.£§.a , a£.S» ~ This subprogram is a Procedure. 

3.2.2.247.10 £a£aai PacaisalaLS.* - 

ident : in cdni_t ypes .c.node.r e f ; — the id of the decl being declared 

decl : in c dm_ types . c.node.ref ; — the decl being declared 
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redef : in cdn_tyoes.c_node.ref. — 'a list of legal previous 

redeclarations 



3.2.2. 247. 11 £_a....__c.... - None 



3.2.2.247.12 A.£_£._hm. - 

invoke "search. i dent " to find orevious declarations of id with 

reoecl Daram set to true;, 
if NOT found> or 

FIRST declaration on list is not part of the same decl part 
as the current decl> then 
invoke " v i s tr ee • add. dnt .en try " returning a dnt for this 
scope if necessary returning the new dnt; 

e I se 

case CURRENT decl type> of 

SUBPROGArt spec or body>: invoke "dec I s » s ubpr og.de f i n i t i ons" 

returning redef and new dnt; 
TYPE>: invoke "dec i s. type. r edef" returning redef and new dnt; 
CONSTANT>: invoke "dec I s. const. redef H returning redef and 

n ew dnt of void; 
PACKAGE. 800Y, TASK. BOOY>: invoke "dec I s.modu I a.oody.rede f " 

returning redef and new dnt; 
ENUM .L ITERAL> ' invoke "decl s.enum. I it. redef" set new dnt to void; 
QTHERS>: *ark decl as in error; 

set new dnt to void; 

end case; 
eno if; 



3.2.2.247.13 2ia_Q...j,c. *e.__,.s.s. ££9.££.U£-* - None 



3.2.2.2 47.14 aiS...... 21 St-l-H StCUS t M f es . - None 



3.2.2.248 £a_..ae.. - prag.3ttr 



3.2.2.248.1 Pyx...... - A target deoendant package to check pragmas and 

attributes and to perform name resolution on them. This is for the P0P11/70 
target only* to be the only prag.attr package for that target. 
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3.2.2.2 46.2 iiuaiiSL at Sii2a£22.£a2£ • ~ 15 ' 



3.2.2.248.3 Qaaaaasaaisa as Q&as£ ELaakaaaa Lac iaaa* - cdm.types 



3. 2. 2.248. 4 Adaiiiaaai asasaasfiaiss ia£ aasty.- - «*ps 



3.2.2.248.5 Paaisaaa iaaaiiiaatiaa. - 

—visible outside package 

procedure pragmat... 

procedure attribute... 



3.2.2.248.6 £iaa2£aiiaa <£'a4£« - None 



3.2.2.2 48.7 ££ag}ale.s. Qa.£a Si£iiaiU££S* - None 



3.2.2.249 S.y.hQJT.aSLaiD* ~ pragmat 



3.2.2.249.1 Py.LaaS.£« ~ Perform name resolution upon pragmas all targets. 



3.2.2.2 49 .2 AsaUIDBiianS* *" None 



3.2.2.249.3 laaiSlSaialiaa language. This subprogram is written in Ada. 



3.2.2.249.4 Us.e.2 tS i, Y£ I Y.« " This subprogram is not used recursively 
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i.2.2. 2 49. 5 iie.sj&.e.g iiiain* ~ oraq^attr 



3.2.2. 249.6 Hill &&SL£Q£i£a£].&l« ~ None 



3,2 ,2. 2 ^9. 7 iacaai daaaaa aaaiss • - None 



3.2.2.249.3 Sui2aLfla£,ai2 V \ ? I Q i f jty » - Outside Package, 

3.2.2.249.9 Eua£liaa£E.r.2£S,lur.§.« *" This suborogram is a Procedure. 

3.2.2.249.10 Lauial PaLassls£s» - 

the^pr ag.ua i in c.node^r e f ; — a reference to the pragma to be checkea 

3.2.2.249.11 iifle, ~ None 

3.2.2.249.12 ii2a£il£ia« - 

case THE. PRAGMA is> if 
P AGE > : invoke '*pr ag_a ttr . page" » 
TITLE* include^ meniory.s i ze t priority* 
s torage.un i t * pack>: 

invoke "or ag_attr . genera I _pr a gma"> 
INTERFACED invoke "prag.attr* inter face**; 

OPTIMIZED invoke "pr ag_attr. opt i mi ze" ; / 

SUPPRESS>: invoke "pr ag.a t t r . supp re ss" ; 

5YSTEM>: invoke "prag.attr. system"; 

INLINS>J invoKe "prag.attr . in I i ne"; 

CQNTRQLLED>: invoKe "prag.attr.control led"; 

LIST>: invoke "pr ag_a t tr • I ist" » 

0THERS>: invoke **0 i agnos e.msg" with the_pragma for error 14033; 
end case; 
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3.2.2.2 49.13 2iaSQ2iIi£ ^e^^aJSl te&SLLZl&a* " 

SEVERITY 

14033 ri Pragma not recognized 



3.2.2.249.14 £iasai£S Q± &a£2. SitU£tU£&i- - None 



3.2.2.250 Sufi2f.o.2L£.2.2l« " system 



3.2.2.250.1 £iLaSL5,2» *" Perform name resolution upon the system pragma for 
POPli/UNIX target. 



3.2.2.250.2 iiiuaaiiaai* ~ None 



3.2.2. 250. 3 lasiSLJSSIliaiiSO, LstCLiiU22£« ~ This su&progran is written in \cia. 



3.2.2. 250.4 Useji ie.c.uxsj.vej.£. - This subprogram is not used recursively. 



3.2.2.250.5 Ne.s.i.sa. Hilfiifl* " prag_attr 



3.2. 2 .250.6 Hasi, Qe.p.e nd.e.2£j.e.s,. - None 



3.2.2.250.7 lacaai Qsaea^Q£iS5« ~ for the POP 11 Unix target as in As Dec 



3.2.2.250.8 Sy.hpjra.2La2! y.i£i bjLli.il. " Within Package Only. 
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j. 2.2. 250. 9 S.iiO.S.i.lflQ^P f.o.c.e.d.y.r 1 • ~ Tnis sudorogram is a Procedure. 
3.2.2. 2 50. 10 L2.LH1&1 P.aL2i!!SlS£S« ~ 

the.pragma : in c..node_ref; — the system pragma to be processed 

1. 2. 2. 250. 11 SJ.dj»-£,tf,e.c.£s.. - None 

3. 2.2. 250. 12 uJ.co f_j,i,n m . - 

chaCK chat fnsre is only one argument 
if f is I j 2 > than 

invoke " 0 j a^nose.fns g M with the_ pragma for error 14038; 

return; 
en a if', 

invoxe "EXPS.exo" with argument 
i f ERR0<?> then v 

invoke "H hgnose.fnsg" with the.praaaia for error 140391 

return; 
end if; 

if ARGUMENT not, part of enumeration 
type system, sy s t em - nan»e> 

then 

invoke " D i agno se. ms g M with the.pragma for error 14040} 
re turn I 
end i f ; 

if ARGUMENT not P0P70.UNIX or 
P0P70> then 

invoke rt 0 i agnose. rasg" with the_pragma for error 14041; 
end if; 

3.2.2.2 50.13 aiaanaiLLs. £e.s.s.aas£ £aa££iiai- - 

SEVERITY 



££££ 


fU 












14038 


t 


system pragma should have only 


one argument 








14039 


E 


pragma argument invalid 










14040 


E 


Argument should be the 
P0P70 


system name 


P0P70 


_UNI X 


o r 


14041 


A 


argument should be the 


system name 


P0P70 


_ J N I X 


o r 



P0P70 
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3 .2. 2. 250. 14 iiiSiilS. 2l iSJtsL llLU£ly.£li» " None 



3.2.2.251 ia,b^£o.o£a.2« - inline 



3. 2. 2. 251.1 - Perforss nans resolution upon the inline pragma tor. all 

targets* 



3.2.2. Z51.2 ii.2.U!EP.ii2.Qi» ~ Nona 

3.2.2.251.3 l22isa^0.i3.I12Q L3.Q.£5Jl2iiS • ** This subprogram is written in Aria. 

3.2.2. 251*4 Us.e.o; ES.iULLS.ilS.il • This subprogram is not used recursively. 

3.2.2.251.5 Ne.s.i.egl aiJktLLG.* - orag^attr 

3. 2.2. 251.6 Hfi5l Q5a£J3J2S.J2£.LSii« ~ None 
3.2.2.2 51.7 laLiie^ ii£2£Q££ n .cie2 • - None 

3.2.2.251.3 Su.2p.ro.Sf.221 lisisiiiix* ~ Within Package Only. 

3. 2.2. 25L.^ 2.u n .£Li2Q.££,L2Siily.r-* • ~ This suborogram is a Procedure. 

3.2.2.251.10 Formal. Pa^ame t e.rs . - 

the^pragtna : in c.node.ref ; — the inline pragma to be processed 
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3. 2.2. 251.11 - ^one 



3.2.2.251.12 AXaoxilhrn. - 

while ARGUMENT fist not at end> 
i oop 

invoke "EXPS-exp" to identify argument 
if ERROR> then 

invoKe H 0 iagnos e .msg w with the„,pragma for error 14050; 
return; 
end if; 

check that the argument, is the name of a nongeneric 
subproira.Ti declared in the same declaration part; 

i f c °. R D k > 
tmn 

invoK? "Diainose.nisi" with the.pragma for error 14051; 
return; 
end if; 
advance position in list; 
snd l)oo; 



3. 2. 2. 2 5 1.13 *.U.2Q2S.i±£. £*n£r.at2Sl« - 



SEVERITY 

14050 6 pragma argument invalid 

14051 t inline argument 

suborogram name 



must 



be 



non gen er i c 



3. 2-2. 251. 14 ^xamp.J.e.2. 2.1 Q.ai.3 ££r u£lii££S» ** None 



3.2.2.252 2u2tif.aaLIim.. ~ controlled 



3.2.2.252. 1 E.U£2£S£ , 
targets . 



- Perform name resolution upon a controlled pragma for all 
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3.2.2. 2^2. i i^lU2ii^i2Qi« ** None 



3.2.2.252.3 l£2i£2£Q.taii2Q L2D.3ii2.2S* "* This subprogram is written in Ada. 

3.2.2.252.4 U££S S££y.r.iiY.*iX« "* This subprogram is not used recursively. 
3. 2 .2. 2 52. 5 N&SJLSS. &iihj.n. - pragma ttr 

3.2.2.252.6 QSfifiEilS.Ilfi.iSS' "~ None 

3.2.2.252.7 Ia.r.S££ QeaSQ^£Q£iSS* - None 

3.2.2.252.3 SilkaiaaLaa iisiailiiY.* ~ Within Package Only. 

3.2.2.252.9 Furjgfc i.QQ/, P,r_Q g^d^r.e, . — This suborogram is a Procedure. 

3.2.2.252.10 FoL2al EaLaiS ~ 

the.pragma : in c_node_ref » — the pragma to be processed 

3.2.2.252.11 £i - None 

3.2.2.252.12 Aj.£0,r i&hni. - 

check that the control led pragma has only one argument; 
if £RRGR> then 

invoke " 0 i agnose. ms g" with the_pragma for error 14052; 

return; 
end i f i 

invoke "EXPS.exp" with argument; 
i f ERRQR> then 

invoke "0 i agnose. ms g" with the_pragma for error 14053; 

return; 
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end i f ; 

checK that argument is only an access type (not derived from one) declared in 
the 

same declarative part; 
if ERRUR> then 

invoke "0 i avjnose. msg" with the.pragma for error 14054; 
end if; 



3. 2.2. 252. 13 lia^aailiS. *S£5.2.aa£ £e.ne.£aisd« - 

SEVEKITY 

14052 £ pragma should have only one argument 

14053 E pragma argument invalid 

14054 t controlled argument must be an access type 



3.2.2.252.14 Liaasaias. at aaia LLLuaiuiss- - None 



3.2.2.253 Sii.&2££2 list 



3.2.2.253.1 HuLfifiSS* ~ Perform name resolution upon tie list pragma for all 
targets. 



3.2.2.253.2 lSiiiEfiJLi20.S« None 



3.2.2.253.3 iaaiSffiaaJLaiiSQ LlQ3USi2£« "* This subprogram is written in Ada. 



3.2.2.253.4 iljap; &&£!iL2i£&JL2« This subprogram is not used recursively. 
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3.2. 2. 253.i? HasUa &iitliQ.« *" ?rag_attr 



3.2.2.253.6 QsBLS0.ilail2.ia2* None 

3.2*2.253.7 IaLSSi &££lUl3£ n .£J.£.S« " None 

3. 2- 2. 253. 8 S.iib.££o.SL22! YiiiailiiX • - Within Package Only. 

1. 2.2. 253. 9 Z±!l!Z.i.L2ZlL£.L2.Q.£.SL\iL§L* ~ This subprogram is a Procedure. 

3.2.2.253.10 t2UiaL • ~ 

the^pragma : in c_.node.ref; — the list pragma to be processed 

3.2.2.253.11 iiflSr£lla.£l5« ~ ^one 

3.2.2.253.12 &lflflL±itia« - 

checK that tnere is only one argument; 
i f ERRQR> then 

invoke "Diagnose.msg" with the_pragma for error 14055; 

return; 
end if; 

check that this argument is spelled "on" or "off"; 
i f ERROR> then 

invoke "Diagnose.msg 1 * with the.pragma for error 14056; 
end if J 

3.2.2.253.13 aiaaosiiis 2aisaass fiansxaiaa- - 

SEVERITY 

14055 £ pragma should have only one argument 

14056 £ arguments to the list pragma should be on or off 
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3.2.2.253.14 iiaiuttlas, at Qaia ULuctutii' - None 

3.2.2.254 £iAkii£,0.ti£,amo - page 



3.2.2.254.1 Pu££2SS» *" Perform name resolution upon tie page pragma for all 
targets* 



3.2.2.254.2 &&£u.fna£ia!L5, - None 

3.2.2.254.3 IialaaaaiaJLLflD. L2.0.auaae.« ~ This subprogran is written in Ada. 

3.2.2.254.4 Liiai E&S.'ir.lilS.l^* ~ This subprogram is not used recursively. 

3. 2. 2. 2 54 .5 N.e.s.i.sa' w i h | n « - pragma ttr 
3.2. 2.2 54 . b Hasi, fle.p r e n n i <je,nc, -je.^ . — None 

3 .2. 2. 2 54. 7 lariat Q£U£0.a£HS±£S • " None 

3.2.2.254.8 Ssi.aa£22La2l iiiiHililX- ~ Within Package Only. 

3.2.2.254.9 Func, i on/Proced q re . - This subprogram is a Procedure. 

3.2.2.254.10 Foxaai PaLaffiaiSiLS. - 

the_pragma : in c.node.ref ; — the page pragma to be processed 
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3.2.2.254.11 " None 



3.2.2.2 5 4.12 *iiiO.Li£h!2. - 

check that the_oragma has no arguments 
i f ERRQR> then 

invoke "D i agnose* msg" with the.pragma for error 14058; 
end if; 



3.2.2.2 54.13 &j.a.3,n,aS.S.jLC. £e.s.s.3.aS£ ££Q«C.lJt£l« - 
SEVERITY 

1405<3 E page pragma should have no arguments 



3.2.2.254.14 isaaalSS. &l Q.SLi.1 SJi£U£lU£§.l- - None 



3.2.2*255 £i±£2£o.a£,a.m. *" genera I ..pragma 



3.2.2.255.1 2.jiL£L2.S.£« *" Perforins name resolution upon the oragmas for al 
targets. 



3.2.2.2 55.2 AS.s,iA02aii2.IlS« ~ None 



3.2.2.255.3 l2aiaQJSataiij20. L2.Q.£UaaS» - This subpcogran is written in Ada. 



3.2.2.255.4 UiSSt E£S.SA!.£jLy.£iy,. - This subprogram is not used recursively. 
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3.2. 2. 255*5 ilSSiSSt SiiitLiU* ~ prag_attf 



j. 2. 2. 255. 6 Nasi QsCSQ^SOSiiiti* - None 
3.2.2.255.7 Ia£S£jL dS2£flij£2ii£J* "* None 

3. 2 .2. 255. 8 SuiaiaSLaSl ^iii&iijLiJ! • ~ Within Package Only. 
3.2.2.255.9 £y,a££io.n£Pr ass^t^r e. • " This subprogram is a Procedure. 
3.2.2.25 5.10 £o.£2ai 2.£La23i.£I,£» " 

the_.pragma s in c.node^r ef ; — reference to pragma to be processed 

3.2.2.255.11 S.ig>::£,ii£C.is.. - None 

3.2.2.255.12 AJ.aarJ.ihm,. - 

check chat pragma has only one argument; 
i f ERRQR> then 

invoke "Oi agnose.rasg" with the^pragma for error 14059; 

return; 
end if» 

invoke "SXPS.exo" with argument; 
if ERRQR> then 

invoke "0 i agnose. ms g" with the_pragma for error 14060; 
end if; 

case PRAGMA name> of 
PACK>: 

check that argument names a record or arry type but not a 

der i ved t ype ; 

if ERRQR> then 

invoke "d i agnose. msg w for error 14891; 

end if; 
0THERS> : null! 
end if; 
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3.2.2.255.13 ±i2.2QailiS. £*1S.2.2Z2. Q.2.<llL3.Ll£» " 

SEVERITY 

14059? E pragma should only have one argument 

14060 £ pragma argument invalid 

14891 £ pack pragma must be given for a non-derived 

record or array only 



3.2.2.255.14 tiajsalSSi Si Hf-iiCi.ill.e.-S.* ~ None 



3.2.2.256 luaaLaaCslffl* " interface 



3.2.2.256.1 PyxaaiS* - Perform name resolution upon the interface pragma for 
the P0P11/70 UNIX target. 



3.2.2.256.2 A £Syj2 avians.. - None 



3.2.2.256.3 l22l£l£QJril&iQ.!l La.0.3.iiaflS • ~ This subprogram is written in Ada. 



3.2.2.256.4 ^a£!l£S.Ly.sJ.^* - This subprogram is not used recursively. 



3.2.2.256.5 £!&.££..§<1 IsiiiitLLn. - prag_attr 



3.2.2.256.6 Has! &Sa£afl'S.Il£..La£ • * None 



3.2.2.256.7 larval tlsaa n .l§. n .SLi§l« ~ p0 *" the POP 11/70 Unix target as in the 
Aspec. 
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3.2.2.256. £S ^u2aL23C22l !2 i. ii3.il ill • " Within Pacxage Only, 



i. 2.2.256. 9' £,unc.ii.o.Q > ^£ > r.a£S.lllLa« *" This subprogram is a Procedure* 

i. 2. 2. 256. io Earjual Pacamaiaf.** - 

the.pragma : in c_.node._r ef ; — the interface pragma to be processed 
3.2.2.256.11 S.io.s-£lfe.c.is.. - None 



i. 2. 2. 256. 12 AJL.aSf.jJL'lfB* *" 

check that tne spelled argument is spelled H c H only J 
if ERRQR> then 

invoke "Di agnose.msg" with the_pragma for error 14061; 

r etur n» 
end i f i 

invoke "EXPS.exp" t*ith second argument; 
i f ERft03> then 

invoke "D iagnose.msg" with the_pragma for error 14062; 

return* 
end i f J 

check that second argument is only a subprogram name! 
if ERR0R> then 

invoke ,, diagnose.msg M for error 14057; 
if ANY more arguments ex i s t> 
then 

invoke "D i agno se. ms g w with the_pragma for error 14063* 
end if; 



3.2.2.256.13 aiasaaaiis. *as,5.a.aas. £ao.s£a£a£i« 



SEVERITY 











14057 


£ 


second argument must be a 


subprogram name 


14061 




invalid language to be interfaced 




14062 


E 


second interface argument invalid 




14063 


6 


interface pragma should have only 


two arguments 
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i. 2. 2. 2 5 6. 14 £&aaai£i 2l aaia ISJLUalULSi' - None 



3. 2*2. 257 iJAkkLO-aLaai* ~ optimize 



3.2.2.257.1 PyxaflSS* - Performs name resolution upon the optimize pragma for 
all targets* 



3.2.2.257.2 iiSUEaJLiaaS* ~ None 

3.2.2. 257. 3 IiSfllSSaS.ai.aJLi.J2Q LaaauaSS* ~ This subprogram is written in Ada 

3.2.2.257.4 Uasi Recu r,s i, ve I y. ~ This subprogram is not used recursively. 

3. 2. 2.257.5 Ne.££e.a jiilaia* - prag_attr 

3.2.2.257.6 tiQ.lt Usasaa'SaaiSS' - None 

3.2.2.257.7 laxasi, fiSfiSad&aaiSS- ~ None 

3.2. 2. 257. d 2iiSa£22Lai2 ¥i£i.ajLLilX« - Within Package Only. 

3.2.2.257.9 £uaa£i2aZ,P.!2£Sa'y£.S • - This subprogram is a Procedure. 

3.2.2«257.io Eaoal p aLafflsisxs • ~ 

the.pragma : in c_node_ref ; — the optimize pragma to be processed 
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J. 2. 2. 257. 11 Jiifl£s£ti&iiiS» - None 



J. 2. 2. 25 7 .12 Al22Lii.Jim» ~ 

check that here is only 1 argument; 
if ERR0R> then 

invoke "Diagnose.msg" with the_pragma for error 14064; 

r e tur n ; 
end if; 

check that argument is spelled either "time" or "space"; 
if 6RR0R> then 

invoke ,f 0 i agnose.nsg" with the_pragma for error 14365; 
end if) 



3.2.2.257.13 a iaa aasiis. Jlassaass Geaanaisa- - 

SEVERITY 

14064 £ optimize pragma should have only one argument 

14065 £ pragita argument invalid 



3.2.2.257.14 £&a(BttlS5. 2 L Saia 2i£U£&U£££« - ^0"^ 



3.2.2.258 ly.2fi£0.2La!n« - suopress 



3.2.2.258.1 Pur.C.aS£» Perform name resolution upon the suppress pragma for all 
targets. 



3.2.2.258.2 iS5,UJSfii,i2Q,S» ~ None 



3-635 



"Use or disclosure of technical data and/or computer software 
is subject to the restrictions on the cover of this Document. " 



ALS Comoiler *ach i ne-I ndeoendent Section C5 Specification CR-CP-0Q59-C64 

1 N.ovemoe-r 1^3i 



i.2.2. 258-.3 l22i£22,QL^^iL12Q La.Q.ilU.2.ilS • " This sjbprogran is written in Ada. 

i. 2. 2.256. 4 UiSSl &££!±L&Ll£i.£» ~ This subprogram is not used recur s i vel y . 

3.2.2. 258.5 Ji£S,i,ect WjLikio,. - pragma ttr 

3.2.2.258.6 Hasi &£aS.fl4£GS..U5.« - None 
3.2.2.2 58.7 Z^L3.S.k Q.£Uia4S.Q£.i££« - None 

3.2.2.258.8 2,jibaf.2.2f.aai £i£i&JLl ±£Y.« ~ Within Package Only. 

3.2.2.256.9 Funct i on /Procedure. - This subprogram is a Procedure. 

3.2.2.258.10 £auiai £ac.&fflftifi£a» - 

the^pragma : in c_node_ref; — the suppress pragma to be processed 



3.2.2.256.11 ii5.sz£ila£il« ~ None 



3.2.2.258.12 AJ.ao.r.i££!m. 



check that first argument is only a "check.naiue"; 
if ERROR> then 

invoke "0 i agnose • ms g" with the.pragma for error 14066; 

return; 
end if* 

if SECOND argument is present> 
then 

invoke "EXPS.exp" with second argument; 
i f £RR0R> then 

invoke " D i agnose • ms g" with the_pragma for error 14067; 

return? 

end if; 

check that name is only an object or type name; 
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if l=f*5uR> then 

invoke "d i agnos e . u g" with the_pragma for error 14395J 
end if; 
end i f J 



3.2.2.253. 13 2i^2Q2S.ii2 "§.113.211 £aOft£ailii« 

SEVERITY 



£0Q£ 


Uxi 






14066 


c 


first argument to suppress pragma 


must be a check name 


14895 


t 


second argument must be a type or 


object name 


14067 


e 


second argument invalid 





3*2.2.258.14 iiaaaiSi 2t Hill SftCMC tUf.aS.* ~ None 



3.2.2.259 Sub.tttaaci.CE* - attribute 



3.2.2.259.1 £ur.Ji2a£« ~ Perform name resolution on and checks legality of an 
attribute that has no parameters, for the PDP70_UNIX target. 



3 .2.2*2 59 .2 AiSUSttiiinS* " None 



3.2.2.259.3 l22lfiE£Qi.lli2Q. LaQ.2!«Lsi££. ~ This subprogram is written in Ada. 



3.2.2.259.4 \±12,& ESiilLSiZS,!^* "* This subprogram is used recursively- 



3.2.2.259.5 SiftSi^d iiinj.n. - prag_attr 
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3.2.2. 259. o !i2S.i &£2£IUJSQS.i&.£« " None 



3.2. 2. 259,7 laLSSi !2sa*Q£SH£iSS« " F °r the PDP 11/73 Unix target* as in the 
Aspec. 



3.2.2.259.8 l\i£.SLLQ.9.L&2i 1 i5.i2.ilii! • • Within Package Only. 



3.2.2.259.9 Eunc.£i2Q£££2£e.ilUT S • - This subprogram is a Function with a 
c_node_,r e f result type. 



3.2.2.259.10 £arjfiai PaL4fflftiftLl« - 

attr : in c„nod«..ref ; — the attribute to be processed 



3.2.2.259.11 Ua£=£Ua£li- - None 



3.2.2. 25*. 12 AJ.2P. £j..lhjg. - 

invoke "exps.exp" with as.name of attr an 
names as context. 

if ERRQR> then mark attr as in error. 

return VQID>? end if; 
case ATTR id> of 

ADDRESS> : name must indicate an objector subprog only. 
BASE> i name must indicate a type or subtype that 

is not a task. 
5IZE> : name must indicate a non task type or subtype 

or an ob j ect • 
IMAGE, va I ue> : 

name must indicate a scalar type or subtype. 
FIRST, last> : 

name must indicate a scalar type or subtype or 

an array type or subtype constrained 
only) or an object of array type or subtype. 
PQS, va I * pred, succ> : 

name must indicate a discrete type or subtyoe. 
DELTA, actual.del ta, bits> : 

name must indicate a fixed point type. 
LARGE, rnacnine.rounds) : 

name must indicate a fixed or flp type. 
DIGIT, mantissa, emax, small, 
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eosilon* mach i ne_r adi x » ma ch i ne_ riant i ssa % 

iTiachine.snaxt na ch i n e_em i n » roach i n e.ov e r f I o w s> ' 

name nust indicate a floating point type or 

suo type only* 
LENGTH* range) ? name must indicate an array 

type or subtype* or an object thereof* 

constrained only. 
CONSTRAINED) : name must indicate a type with discriminants. 
POSITION, first.bit* last.bit) : 

name must indicate a record component* 
STORAGE.. S I £ 5) • name must indicate an access type. 
TERIINaTcD* priority* failure* s tor age.s i ze) s 

name must indicate a task object or type. 
COUNT) : 

name must indicate an entry. 
8ASE> : 

name must be a type or subtype. 
OTHERS) : error; 
end case; 

if ERROR) and PRAGMA.FLAG not set) then 

invoke " d iagnos e.msg" with attr for error 14072 

return VOID); 

else mark attr as error; 

return VOID); 
end if; 

return attribute result type. 



3.2.2.259.13 iia2Q2S.£i£ £as.s.2.2S3 ££0£r.a£e.d. - 

SEVERITY 

14072 E illegal attribute of this name. 



3.2.2.259.14 £*a!SaiSS. 2t 12.312. £l£Ji£iilf.&£» ~ None 



3.2.2.260 ?.a£ii3H£« ~ pragma ttr 



3.2..2.260.1 Py.r.D.o.s.8.. - A target dependant package to check prag-nas and 
attributes and to perform name resolution on them. This is for the RQLf1 1602_SA 
target only. Only this prag„attr package will be included for that target. 
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3.2.2.260.2 iliiaSSL al SMia£.22Lii2lS« - 15 



3.2.2. 260. 3 aaaaaaaaaiss. an Qi££r. Eaa&aaas tar. iass. - cdm.types 



3.2.2.260.4 Ag.4i£io.aai Qsaaa&saaifis £a£ iad*- - e*ps 



a.2.2.260.5 Paaisaaa io.e.c.iiiaaiian* - 

—visible outside package 
procedure pragmat... 
procedure attribute... 



3.2.2.260.6 £iaaar.a£iai2 £ada« ~ None 



3.2.2.260.7 SaaaalSS. 2t ILLUZLlLLS,!* " None 



3.2.2.261 5-iiaa£aacai3 • ~ oragmat 



3.2.2.261.1 Pur.aa5.£« ~ Perform name resolution upon pragmas all targets 



3.2.2.261.2 AiSiiiEaixailS • ~ None 



3.2.2. 261.3 I li B I. g ffl> 5 Q £ 3 k j a V^C! as ■ This subprogran is written in Ada. 



3.2.2.261.4 liiSS* Esau.£.SilS.Il» ~ This subprogram is not used recursively. 
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3.2. 2. 261.5 {LiLHiH* ~ orag.attr 



3 .2* 2*261 .6 tlaSi. Q5C.aO,ilaD.Sti3.S.« ™ None 

3*2.2. 261.7 laiaal Qfia&iias.Q£i£l- - None 

3.2.2.261.3 SiiSfi£.a2L2!B YiiikiiilX* ~ Outside Package. 

3.2.2.261.9 Eiinc.li2Q£££2£e.jJj4£,e,. - This subprogram is a Procedure. 

3.2.2.261.10 E^Oial P ar gme frer s . - 

the. pragma s in e.node.ref; — - a reference to the pragma to be checked 



3.2.2.261.11 iidSsEllafijLS* " None 



3.2.2.261.12 A t gor i thm. - 

case THE. PRAGMA is> if 
P AGE>: invoke "pragma ttr .page" J 
TITLE* include* memory. size, priority, 
s tor age.un i t . oack> : 

invoke "prag.attr • general .pragma"; 
INTERFACED invoke "prag.attr . i nter face"; 
OPTIMIZED invoke "prag.attr .opti mi ze"? 
SUPPRESS>: invoke "prag.a ttr.supp ress" ; 
SYSTEfO: invoke "prag. at tr • system" ; 
I NL I NE> : invoke "prag. at tr . i n I I ne"; 
C0NTR0LLED> • invoke " prag.a ttr . con t ro II ed" ; 
uIST>: invoke "prag.a ttr. list"; 

□THERS>: invoke "0 i agnos e. msg" with the. pragma for error 140335 
end case ; 
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3.2.2.26 1.13 .'iiaS'QSLiJLi-Jl *£SSiL2SS £2.0.2X2.12,1 • ~ 
SEVERITY 

14033 w Pragma not recognized 



3.2.2. 261. 14 iiasalSI 2i ULL^SiilLSS" - None 



3.2.2.262 iy,£>tt£.o.£f.2!E« - system 



B. 2.2.262.1 £u.L2.2£5: • ~ Perform name resolution upon the system pragma for RQLM 
16028.SA target. 



3.2.2. 262.2 ^s.iy,mo.ii.g.ns.. - None 



3.2.2.262.3 laaiaffle.HlaJLL 0 .!! Li,QilUsL2£« " This subprogram is written in 4da 



3.2.2.262.4 12s,ea; &e.c.u.r.s.ivej.y.. ~ This subprogram is not used recursively. 



3.2.2.262.5 !i£li5Sl W J-itLiQ. • ~ prag_attr 



3.2.2.262.6 2S2S.Il£t§.nS.i.£S.» ~ None 



3.2.2.262.7 ££a£QSL§.O.c.j.e..s. • ~ for the R0L1 1602 stand alone target as in 

Aspec. 
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3.2.2.262.3 £:A20.L2£L2!2 iiiiiilill* *" Within Package Only. 
3*2.2.262. Eiia5Lil2QZ.Ell2S3.ilU.L2* - This suopr ogr am is a Procedure. 

3.2.2.262.10 £2LISai ZaL3L2iZ±2.Li • " 

the.pragma : in c„.node_r ef ; — the system pragma to be processed 

3.2.2.262.11 iiilsz£lie.c.is. - None 

3. 2 .2. 262. 12 Alao.£jJUi!2» - 

check that there is only one argument; 
if ERRQR> then 

invoke "D i agno se. ms g w with the_pragma for error 14034; 

return* 
ena if; 

invoke "EXPS.EXP" with argument; 
if £ RRQR> then 

invoke "0 i agnose. msg" with the.pragma for error 14035; 

return ; 
end if> 

if ARGUMENT not part of enumeration type system 
system_name> 

then 

invoke M D i agno se. ms g" with the^pragma for error 14036; 
return; 
end if 

if ARGUMENT not R0LM16028.S A or 
R0LM16023 

then 

invoke "Diagnose. msg M with the_pragma for error 14037; 
end i f ; 

3.2.2.262.13 Qi&gao. SsSiaaSS SeHS£3£ed,. - 

SEVERITY 

14034 E system pragma should have only one argument 

14035 £ Pragma argument invalid 
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1403b E Argument should oe tne ; . system name RQL.N16023..S A or 

RQLf116023 

14037 4 Argument should oe • the system name RQL116023-SA or 

A0L.M1602B 



3.2.2.262.14 ixaaU-US. It Uala Ifc£iic.£ii£2£* - None 



3.2.2.263 5iiia£0.a£am. - inline 



3. 2.2. 263.1 £iLo.o.s.e.. - Performs name resolution upon the inline pragma for all 
targets. 



3.2.2.263.2 Ai£U<naJ*i°.IlS- ~ None 



3.2.2.263.3 l3al£2£ n .lali..2 n . Laiiauasa* * This subprogram is written in Ada. 



3.2.2. 263.4 ys«a; Re.ayxsi.v.&iy.. This suoprogram is not used recursively. 



3.2.2.263.5 Ne.s.Ie,£ Wj.&hj.n. - prag_attr 



3.2.2. 263.6 HaSi Deoe ndenc i,es . - None 



3.2.2.263.7 Ia£2£t l£D.£i£.5« - None 



3.2.2.263.3 S.uaG.L22L2.!2 Vj.sJ.aii.iiv. *~ Within Package Only. 
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3.2. 2. 263. 9 ^iinc.i.i.o.n/ Pr2£elu.£»a. e ~ T nis subprogram is a Procedure. 

3.2.2.263.10 t2£.aal • " 

the_pragma * in c.node.r ef » — the inline pragma to be processed 

3.2.2.263.11 iid.e.3ilf.e.c.i,s., - None 

3.2.2.263.12 AJ.aflr.ii.hj2. - 
*hile ARGUMENT list not at end> 

i oop 

invoke "EXPS.exp" to identify argument 
i f 6RR0R> then 

invoke w 0 iagnose.msg" with the^pragma for error 14050; 
return; 
end if; 

check that the argument is the name of a nongener ic 
subprogram declared in the same declaration part; 
i f ERRQR> 
then 

invoke "0 iagnose.msg** with the_oragma for error 14051; 
return; 
end if; 
advance position in list; 
end loop; 



3.2.2.263.13 aiaaoasiic. 2ssiaass S£aS£aiS<l« - 

SEVERITY 
£aQf JlUl&.tE^F I£XI 

14050 E pragma argument invalid 

14051 E inline argument must be a nongener i c 

subprogram name 
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3.2.2.263.14 a&aEttiaSL 21 Qaia IkLUSLlLULaS* " 



i.2.2.264 i»i.&ar.o.or.3(a. - controlled 



3.2.2.264.1 Pi£fi2S£« ~ Perform name resolution upon a controlled pragna for al 
targets. 



3.2.~2.264.2 ISlilfflfiitiaQS* - None 

J.2.2.264.3 Iia2lSffiS n JLaii.2 n . L2.nauaa£« *~ This subprogram is written in Ada. 

3.2.2.264.4 !2s.aa EaS.ii.LSil all* *" This subprogram is not used recursively. 

3.2.2.264.5 liaaiJSSi iiLitlia* ~ P«*ag..attr 

3.2.2.264.6 tiflii aS2ail<i£I2SL±a5.. - None 

3.2.2.264.7 lar,sai £afiao.£ai2£ia.s.. - None 

3.2.2.264.8 SiiSfiLaacani ^iai&i.lJLly.* ~ Within Package Only. 

3.2.2.264.9 &UQJLii2!l£EL2,S.ad.JA££« - This subprogram is a Procedure. 

3.2.2.264.10 r or m^X Z.^L3lZS.1SJL1» " 

the_pragma : in c.nodejaf > — the pragma to be processed 
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3 • 2. 2. 264. II liiiS;£lIaS.iS« ~ None 



3.2.2.264.12 &i'a&Li.£.!l2l» " 

check that the controlled pragma has only one argument; 
if ERROR> then 

invoke "D i agnose. ms g w with the_pragma for error 14052; 

return; 
end i f ; 

invoke "EXPS.exp" with argument; 
if ERR0R> then 

invoke "D i agnose. ms g H with the_pragma for error 14053; 

return; 
end if; 

check that argument is only an access type (not derived from one) declared in 
the 

same declarative part; 
i f ERRUR> then 

invoke "Di agnose.msg" with the.pragma for error 14054'; 
end if; 



3.2.2.264.13 aiaaaaiiic. Jianaass Saaataiaa,* - 



SEVERITY 





tlx 






14052 


E 


pragma should have only one 


argument 


14053 


E 


pragma argument invalid 




14054 


E 


controlled argument must be 


an access 



3.2.2.264.14 £iaiDaisa at 2ala ltr.U£i.il£ai* - None 



3.2.2.265 S.y,aaL22La2» list 



3.2.2.265.1 2,iA£aas.e,. - Perform name resolution upon tie list pragma for ail 
targets. 
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j.2.2.265.2 iiiUEaiifiQl* * None 



3.2.2.265.3 l22iS,!S£Q.£aiii22, LaQ.3Uaa£« " This subprogra/n is written in Ada 



3.2.2.265.4 !2s.«£ Ssa-lLSiY.S.ix* " This subprogram is not used recursively. 



3.2.2.265.5 NaiiSSl SiiUliD.* "* prag_attr 



3. 2.2.265.6 Hasl QfiaSI2Jl5.IlS.iai* ~ None 



3.2.2.265.7 laiaSi QSflSQ4£Il£iSS • "* None 



3. 2 .2. 265 .8 Su2P.L°.SX22! V i s i p i, 1 ? tv . - Within Package Only, 

3.2.2.265.9 £iifl££i&Q££La£ "* This subprogram is a Procedure. 

3.2.2.265. 10 £^£2?al PaLUDaiSIS* - 

the_pragma : in c.node.ref » — the list pragma to be processed 

3.2.2.265.11 iils-£lle.al5.. - None 



3.2.2.265.12 4iaa£j.£hm. " 

check that there is only one argument; 
if ERRQR> then 

invoke "D i agnose_ms g" with the.pragma for error I4055J 

r e tur n ; 
end if; 

check that tnis argument is spelled "on" or "off"; 
if £ RRQR> then 

invoke "D » agnose. msg" with the. pragma for error 14056; 
end if; 
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J. 2. 2. 2 65. 13 iia3Q2iii£ £Sli22£l - 
SEVERITY 

14055 £ pragma should have only one argument 

14056 £ arguments to the fist pragma should be on or off 



3.2.2.265.14 Ejia.fflaJ.SS 2i &3&a llLilClUtSS* ~ None 



3.2.2.266 Suia£25£2ID« ~ oage 



3.2.2.266.1 Pj.r 2,25,2,. - Perform name resolution upon the page pragma for all 
targets. 



3*2.2.266.2 ASSMfflfiiiaflS* "* None 



3.2.2. 26 6. 3 XaalSfflSaiaiiaa Laaauaas* - This subprogram is written in Ada. 



3.2.2.266.4 Uisa ££aUf.£iY.£lY.» ~ This subprogram is not used recursively, 



3.2.2. 266.5 SfSSi^a diinin.* ~ p r ag_a tt r 



3.2.2.266.6 tfasi li.saaaa'aasJLas.* None 



3.2.2.266.7 lar.as.1 Qaasasiaaaias* - None 
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3.2.2.266.3 IlS.aL22L2.ni liii2.il ill* "* Within Package Only, 
3.2.2.266«9 £iiO.£.iiflaL?-La£^d.ULS« " This subprogram is a Procedure. 

3. 2. 2.266. 10 £aL£ai P-ataaaiaLS.- - 

the_pragma : in c.node.r e f ; — the page pragma to be processed 

3.2.2.266.11 Sials-£Xte.alS« - None 

3.2.2.266.12 Aj, j,£h m. ~ 

check that the.oragma has no arguments 
if ERRQR> then 

invoke "0 i agnose. ms g M with the. pragma for error 14058; 
end i f J 

3.2.2.266.13 sUaaaaaiia Sassaa&s Ssaar-aisa* - 

SEVERITY 

14053 E page pragma should have no arguments 

3.2.2.266.14 isaisalas al £a£a SlLuatiiLai* - None 

3.2.2.267 £ua2L22La£2 • " genera I .pragma 

3.2.2.267.1 PiLaasa* - Performs name resolution upon the oragmas for all 
targets. 
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3. 2 • 2. 267 • 2 A££u.rn£ij.o.n s . - None 

3.2.2.267.3 IsalSESaiaJLLSQ. Ll0.i2U2.22 • This subprogram is written in Ada* 

3.2.2.267.4 U^asi Esc.u.r.Si.vsly.. - This subprogram is not used recursively. 

3.2.2.267.5 M&SlSH ULlGill* ~ prag_attr 

3.2.2.267.6 HfiSl iiSfiSflllSflSLiSS.' - None 
3.2.2.267c7 Xax3S& QsaSQ5lS.Il £±S1» "" None 

3*2.2.267.3 Sy&.p.r.o.af.am. iili^ilii^* - Within Package Only, 

3.2.2.267.9 EuQ£iiaQ££La.fiftJiur.fi« "* This subprogram is a Procedure. 
3.2.2.267. LO LSOsal HaLlESiSlS.* " 

the„pragma : in c.node^refj -— reference to pragma to be processed 



3.2.2.267.11 iXd.s:£iIs£ll« ~ None 



3.2.2.267.12 A.l.a2r.ilha. - 

check that pragma has only one argument; 
if ERROR> then 

invoke "Di agnose. ms g w with the_pragma for error 14059; 

r etur n ; 
end if; 

invoke "EXPS.exp" with argument; 
i f ERRQR> then 

invoke "0 i agno se. ms g M with the.pragma for error 14060; 
end if; 
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case P*4G< M A nane> of 
PACK>: 

checK that argument names a record or arry type but not a 

der i ved type J 

i f ERRQR> then 

invoke "d i agnos e.msg 1 * for error 14891J 

end if; 
QTHE.RS> * null; 
end if; 



3. 2.2. 267. 13 aiaaQaaiis. Sassaaas - 

SEVERITY 

14059; E pragma should only have one argument 

14060 E oragna argument invalid 

14891 E pack pragma must be given for a non-derived 

record or array only 



3. 2.2.267 ,14 i2.a22.JLsi 2l Q.2L$.a £.111.51 • ~ None 



3.2.2.268 5,iib.D.r22La21« " optimize 



3.2.2.268.1 Pyxaaaa. - Performs name resolution upon the optimize pragma for 
al I targets. 



3.2.2.268.2 45.SiilJ12ii2.nS* " None 



3.2.2.268.3 Iiaala{2aaiaLL2Q. Laaaaaaa* " This subprogram is written in Ada 



3.2.2.263.4 U^ga. SSc.slLSiy-S.ly.' - This subprogram is not used recursively. 
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3.2.2.268.5 aiiljliQ.* ~ praa_attr 



3. 2 • 2. 263. o ijail Qe.ii« njje.nc.ie.s, • - None 

3.2.2.268.7 Ia.£aS.i QaaSfldaaSLiSS • - None 

3.2.2.268.8 SukfltaSILaS! V ' s i b i„ i, j.tv . - Within Package Only. 

3.2.2.268.9 HaHQ.£.L2Q.LLLQ.£§. £)AL1* ~ T his subprogram is a Procedure. 

3.2. 2.263.10 E,2£ma.l P-lLain * 

the_pr agma : in c_no d e_r e f ; — the optimize pragma to be. processed 

3.2.2.268.11 ii<lsz£iia£,i.l • ** None 

3.2.2.268.12 ii2g.rj.ih a. " 

check that here is only 1 argument; 
if ERR0R> then 

invoke "D i agnose. ms g" with the_pragma for error 14064; 

r e tur n ; 
end if; 

check that argument is spelled either "time" or "space"; 
i f 6RR0R> then 

invoke "D i agnose .msg" *ith the_pragma for error 14065; 
end if; 



3.2.2.268.13 0.iaaQfis.ii£ ££££2223 £sa£L3£«a. - 

SEVERITY 

14064 E optimize pragma should have only one argument 

14065 E pragma argument invalid 
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3,2. 2. 263,14 txa.2£LU£ at 0^11 St£UC.tU££S. - None 
3.2.2.269 SniaLaaLaa* ~ suopress 



3.2.2.269.1 P y.£fi,2,s.e. . - Perform name resolution upon tine suppress prag.ua for all 
targets. 



3 .2 .2. 269. 2 AsSJiEfiii&GLS- ~ None 

3.2.2. 269. 3 I]12l£2£D.£siii2.0. LiiQ.2UaaS» - This subprogram is written in Ada. 

3.2.2.269.4 yts.s.a S&c.yxsJ.va.Xx. - This subprogram is not used recursively. 

3.2.2. 269. 5 N£S.£eg; ^lin^n. - prag_attr 

3.2.2.2 69 .6 tl2St Q.S2S£ia , £Q£L.UUL« - None 
3. 2. 2. 269. 7 Ia.£2£Jt fi£££ri2 , £0.£.L£S • "* None 

3. 2-2.269.3 Sy.no.£23£a!D ]Q5±2iJLi.£l • " Within PacKage Only. 

3.2.2.269.9 £iA2c.ti2Q.£E£2.£S.2 , li£;a.« This subprogram is a Procedure. 

3.2.2.269.10 ?2£JBai 2.1£3!2ai£££» "* 

the_pr agma : in c.node.ref J — the suppress pragma to be processed 
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3.2.2.2 69.11 iifl£s£it ftc.i.s. - None 



3. 2.2. 269. 12 AiSSLiiam. - 

check that first argument is only a "check. name"; 
i f ERR0R> then 

invoke "D i agnose. ms g w with the.pragma for error U066J 

return; 
end if; 

if SECOND argument is present> 
then 

invoke "SxPS»exp w with second argument; 
i f ERkOR> then 

invoke "0 i agnose. msg" with the.pragma for error 14067; 
r etur n ; 
end i f ; 

check that na*e is only an object or type name; 
if ERR0R> thsn 

invoke *d i agnose.mg" with the_pragma for error 14895; 
end i f ; 
end i f ; 



3.2.2.269.13 iUaaQ2£li£ JlSHaSSJ iZfiOfiialfid • - 



cans 



SEVERITY 



14066 



E 



first argument to suppress pragma must be a check name 



14695 



£ 



second argument must be a type or object name 



14067 



E 



second argument invalid 



3.2.2.26 9.14 tiaffiaiSS. it £312. ilLUfiiyXfia* - None 



3.2.2.270 iiiS.o.r.o.af.am* ** attribute 
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3.2.2.270.1 °J.r.a2.S.iL» ~ Perform name resolution on and checKs legality of an 
attribute that has no parameters* for the VAX/VIS target* the VAX.SA target* the 
ROLM 16023. SA target, and the R0LM1666.SA target. 



3.2.2.2 70 .2 A ,S,iy.O!aii20.5« "* None 



3.2.2. 270.3 Iial£2lSaiali.2Q. Lag qua . - This subprogram is written in Ada. 



3.2.2.270.4 Uiai &££.y,£3j.vej.y.. - This subprogram is used recursively. 



3.2.2.270.5 ^£3.1.321 ttiUlLll« "* prag_attr 



3 .2.2. 270. 6 HaSi &£a2Qa , £ n .£i.£5, • " None 



3.2.2.270.7 laxaai CL£a£a£^ n .Si.£.2» — For all targets except the POP 11/70 Unix. 



3.2.2.270.8 iu.aar.a3Ll (2 liliaililX* ~ Within Package Only. 



3.2.2.270.9 £aaaiiaa^.£La£S.ay.£S. • This subprogram is a Function with a 
c„.node_ref result type. 



3.2.2.270.10 £ar.m§X PaL12£t££S • ~ 

attr : in c.node.ref ; — the attribute to be processed 

3.2.2.270.11 iia£r£ltaaii» - None 
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3.2.2.270, 12 ii22Lii£l2« - 

invoKe "exps.exo" with as.name ofattran 
names as context. 

if ERROR) then mark attr as in error. 

return VOIO)» end if; 
case ATTR id) of 

AOORESS) ' name must indicate an objector subprog only. 
BASE) : name must indicate a type or subtype that 

is not a task. 
SIZE) : name must indicate a non task type or subtype 

or an object. 
IMAGE* value> : 

name must indicate a scalar type or subtype. 
FIRST, last> : 

name must indicate a scalar type or subtype or 

an array type or subtype constrained 
only) or an object of array type or subtype. 
POS, val i pred, succ> : 

name must indicate a discrete type or subtype. 
DELTA, actua I _de I ta, bits> : 

name must indicate a fixed point type. 
LARGE, mach i ne_rounds) : 

name must indicate a fixed or flp type* 
DIGIT, mantissa, emax , small, 

epsilon, mach i ne_r ad i x , mach i ne_ man t i ssa * 

mach i ne.emax , mach ine.em in , machine_over f I ows> * 

name must indicate a floating point type or 

subtype only. — 
LENGTH, range) : name must indicate an array 

type or subtype, or an object thereof, 

constrained only. 
CONSTRAINED) : name must indicate a type *ith discriminants. 
POSITION, first. bit, last.bit) : 

name must indicate a record component. 
STQRAGE.S IZE) s name must indicate an access type. 
TERMINATED, priority, failure, s tor age.s i ze> ' 

name must indicate a task object or type. 
COUNT) : 

name must indicate an entry. 
8ASE> : 

name must be a type or subtype. 
OISP> : name must indicate a (potential) parameter to a 

code statement; 
OTHERS) : error; 
end case; 

if ERROR) and P RAGrtA.FL AG not set) then 

invoke "d iagnose.msg" with attr for error 14006 

return VOID); 

else mark attr as error; 

return VOID); 
end if; 

r.eturn attribute result type. 
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3. 2. z.ziQ . n ai.a5aa2.LU iaiiaaai £eo.££al£2. - 

SEVERITY 

1400b £ illegal attribute of this name. 



3. 2 .2. 2 70.1 A siaaai^S. at 2ai2. 2££!AiiU£SS- - None 



3.2.2.271 Iaa2£aa£a21« " interface 



3.2.2. 271.1 iii£aasa« ~ Perform name resolution upon tne interface pragma for 
the VAX ana ROLtt targets. 



3.2.2.271.2 A,aiy,!Iiai.iari5« ~ None 



3.2.2.271.3 Iialsaaniaii^E LaQ.3Ji2il£« ~ This subprogram is written in Ada. 



3.2.2.271.4 Usag Saail£SixaiX» ~ This subprogram is not used recursively 



3.2.2.271.5 ti&S£,.sa iiilQin* ~ prag_attr 



3.2.2.271.6 Han Qaaandanaiss* ~ None 



3.2.2.271.7 Ia£2£l Qepende nc i e . - For all targets except the POP 11/70. 



3.2.2.271.3 £aaa£a2£2in ^llialiiiy.* ~ Within Package Only. 
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i • 2 • 2. 271 • ^ £u2£lL2Q.£PL2££ily.]L2» ~ This suoprogram is a Procedure. 

3.2.2.271.10 Facaal P-acasaliuLs.* ~ 

the. pragma : in c.node.ref; — the interface pragma to be processed 

3.2.2.271.11 ii(iar£Iia£ii» - None 



3.2.2.271.12 AX22£iIk!3« - 

invoke "cXPS.exo" with second argument; 
i f €RROR> then 

invoke " Diagnose. msg" with the.pragma for error 14062; 

return » 
end i f I 

check that second argument is only a subprogram name; 
if ERRGR> then 

invoke "diagnose. msg" for error 14057; 
if ANY more arguments exist> 
then 

invoke W D i agnose. msg" with the.pragma for error 14063* 
ena if; 



i. 2. 2. 271. 13 aj.aao.as.lia lUsaaaes SsasiLaiasl- - 

SEVERITY 

14057 t second argument must be a subprogram name 

14061 invalid language to be interfaced 

14062 E second interface argument invalid 

14063 E interface oragma should have only two arguments 



3.2.2.271.14 fcxaialss. 21 2212 ll£U2 - None 
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3.2.2.272 " pragma ttr 



3.2.2.272.1 £yjiaa&£. • - A target dependant package to check pragmas and 
attributes and to perform name resolution on them. This is for the R0LM1666...3A 
target only. Only tnis prag_attr package will be included for that target. 



3.2.2.272.2 ^aasr. ai iuaaiaanaas • - 15 



3.2.2.272.3 llS2£IliiSL!2£i£S 20. Q.£!l££ P, 3. £.11222. 2. L2L 5.2*5. • " cdm.ty pes 



3.2.2.272.4 Ao,<2i£ X2Q.2.1 QlSaS.Q.lS.O.Si^S. L2L last** " exps 



3.2.2.272.5 Pa.c.»saaS. l212lL±2^L2Q.* - 

visiole outside package 
procedure pragmat... 
procedure attribute... 



3.2.2.272.6 gi%22L^LL2D. £a£S- - None 

3.2.2.272.7 £*aJBai.3& 2l Qaia *.*£a*£y.La*« " None 



3.2.2.273 Suaa£.aa£2!D» ~ pragmat 



3.2.2.273.1 F.JULaaS.S* "* Perform name resolution upon pragmas all targets. 



3.2.2.273.2 A,s.s.ujna£i2IlS« ~ None 
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3.2.2.273.3 laalSiHSO.JiilikifiQ LiI12!iiL3£« ~ This suoprogran is written in Ada. 
3.2.2.273.* Lii££l £££ > y.L£i.Y.S.J.y.« - This subprogram is not used recursively, 

3.2.2.273.5 Ne.s.£,e.p. w i.thj.n. - prag_attr 

3.2.2.273.6 hc^i QsasLaaanai&s.' - None 

3.2.2.273.7 Iar.<l2.I Q.2.SL231<1$.11Q.L§.1 * - None 

3.2.2.273.8 Siiaaf. £211221 V 1 S 1 fr. k I i. tv . - Outside Package. 

3.2.2.273.9 EuQa£i2Q£3Lr.a£&a , UL2.» " This subprogram is a Procedure. 

3.2.2.273.10 £aL2iai 2,aLasaiar.s- - 

the_pragma * in c.node.refj — a reference to the pragma to be checked 

3.2.2.273.H ii^sziliaais* - None 

3.2.2.273.12 AlaarJ^fcrn. - 

■case THE_PRAG*A is> if 

PAGE>: invoke "pragma ttr . page" » 

TITLE* include* memory_size* priority* 

s torage_un i t * pack>: 
f invoke "prag^attr • general _pragma n j 

I NTERF ACE> : invoke "prag.attr . i nter f ace"; 
0PTIMIZE>: invoke M pr ag_attr . oot imize"; 
SUPPRESS>: invoke "pr ag_attr. suppress" J 
SYSTEM>: invoke "prag_at tr • sys tem w ; 
INLINE> : invoke M prag„attr . in I i ne M ; 
C0NTR0LLED>: invoke "prag.a ttr .cont ro I I ed M J 
LIST>s invoke "pragma ttr.. I i st" i 

0THERS>: invoke n Q iagnose.msg** with the_pragma for error 14033; 
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end case; 



3.2.2.273.13 iiaanfliiic. 5i£Siaas5 SaaacaissU - 



SEVERITY 

14033 w Pragma not recognized 



3.2.2.273.14 txaaalss. at Qa£a 1£lus.Lu£2£« - None 



3.2.2.274 inll2.lo.2L2.iB* - inline 



3.2.2.274.1 £,a£aa£2« - Performs name resolution upon the inline oragma for all 
targets. 



3.2.2. 274.2 4s.s.ii2iaiia.ns.. - None 

3.2. 2. 274. 3 l2}2iS21£Q,iali20. LlLQ.ilua.2S • "~ This subprogran is written in Ada 

3.2.2.274.4 Us.e.a Rec.ijf.s i, y e I v. - This subprogram is not used recursively. 

3.2.2.274.5 Haiiegl WjAtlia* - prag_attr 

3.2.2.274.6 tiSLlL Qepe no;^f>c. j[ es . - None 

3.2.2.274.7 laHSSl £2saS.Q2 §.".£..!.£.£• ~ None 
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3.2. 2. £74,3 iyL-lfiLacL^m yj.2i5.ii - Within Package Only, 

3.2.2. 274. 9 5iin££i£n£P r a c.s.d.y.r.9 . - This subprogram is a Procedure* 

3.2.2.274.10 Earjaal P-aiaffiaiaiis* ~ 

the_pragma : in c_node..ref; — the inline pragma to be processed 

3.2.2.274.11 iias-£ite.£ls.. - None 

3.2.2.274.12 Aiaaciitiai* - 

while ARGUMENT list not at end> 
i oop 

invoke "EXPS.exp" to identify argument 
i f ERR0R> then 

invoke **0 i ag nose .msg" with the^pragma for error 14050; 
return; 
end if; 

check that the argument is the name of a nongeneric 
subprogram declared in the same declaration part; 
if ERR0R> 
then 

invoke H 0 i agnose.msg 1 * with the_pragma for error 14051; 
return; 
end i f ; 
advance position in list; 
end loop; 

3.2.2.274.13 P..U2Q2S.1 i£ Ne.s.s.aae.s. £££l&L2i«a- - 
SEVERITY 

14050 E pragua argument invalid 

14051 £ inline argument must be a nongeneric 

subprogram name 



3-663 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Compiler lach i ne-I ndeoe ndent Section C5 Specification CR-CP-0059-C84 
I November 1^33 

3.2. 2. 27 4. 14 ixaniiias. ai ilia L£LUaiU£££- - None 
3.2.2.275 £yj2,o.r.o.a r.a.21 • " controlled 



3.2.2.275.1 PyXaaSS* ~ Perform name resolution upon a controlled pragma for all 
targets* 



3.2.2.275.2 A s.s.«±mo.£j.o n. s. • - None 

3.2.2.275.3 l2!al£S£0jLSJLL23. LaaauaaS* ~ This subprogram is written in *da. 

3.2.2.275.4 US^il E£&U£&iX.&l£* ~ This subprogram is not used recursively. 
3. 2. 2. 275.5 Ne.s.£e.£l wi£hj.n. - prag^attr 

3.2.2.275.6 HflSi £L£a&a3S0.ai£l* ~ None 

3.2.2.275.7 JaxHSi Q.2.Q.2J1&Z.U.ZLS.S. • - None 

3.2.2.275.3 Su2fi£2a£aiD Vlsfo. 1 1 ttv . - Within Package Only. 

3.2.2.275.9 £y2a£iflfl£P£aa2.aU£S.« ~ This subprogram is a Procedure. 

3.2.2.275.10 FoxmaJ. P aLSiESlSLS* - 

the.pragma : in c.node.ref J — the pragma to be processed 
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3.2.2.2 75. LI iiasr£tla.£li» " None 



3.2-2. 2 75. 12 iXaaciliiffl- - 

check that the controlled pragma has only one argument; 
i f ERRQR> then 

invoke M Di agnose.msg" with the_pragma for error 14052; 

return; 
end i f } 

invoke "EXPS.exo" with argument; 
if ERRUR> then 

invoke "0 i agnose. ms g w with the_pragma for error 14053; 

r eturn* 
end if; 

check that argument is only an access type (not derived from one) declared in 
the 

same declarative part; 
if ERRQR> then 

invoke "0 i agno se. ms g M with the.pragma for error 14054; 
end i f ; 



3.2.2.275.13 QiaSQfiiiJLS. *§.2.1*QZZ ^S.HS.L3.LS.^ - 



SEVERITY 



14052 


E 


pragma should have only one 


argument 


14053 


£ 


pragma argument invalid 




14054 


E 


controlled argument must be 


an access 



3.2.2.275.14 tiaaalss. ai Haia lfcr.usi.u12s- - None 



3.2.2.276 iy,^p.£2£L12» - list 



3.2.2.276.1 £u.r.tt9.5.£« ~ Perform name resolution upon the list pragma for all 
targets. 
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3.2.2.276.2 *£S,UiIiaii2CLS» " None 



3.2.2.276.3 Iaal£2l£0.£.ai.iS0. LaOLiWaaS • "* This subprogram is written in Ada. 

3.2.2. 276.4 Ui&a BsayLJLii.Y.S.1.1* " This subprogram is not used recursively. 
3. 2. 2.27b. 5 Ne.si.gg; kiilHiH. - prag_attr 

3.2.2.276«6 HaiJL ~" None 

3.2.2.276.7 la £,£2.1 Q£££QS£iiaie 1 • ~ None 

3.2.2.276. & Suafi£aS£i31 YiiiaililY. • ~ Within Package Only. 

3.2.2.276.9 EiiniliaaZ.f.taiiaa'ur.a • - This subprogram is a Procedure. 

3.2.2.276.10 FaLIDal P^r.ame.ters . - 

the.pragma : in c.node.ref I — the list pragma to be processed 

3.2.2.276.11 UaS=£LUaIS. - None 

3.2.2.276.12 Al£0.£ii,£»ni. - 

check that there is only one argument? 
if ERR0R> then 

invoke "Oiagnose.msg" with the^pragma for error 140555 

return; 
end if j 

check that this argument is spelled "on" or "off"; 
if € RRQR> then 

invoke "Diagnose. msg" with the_pragma for error 14056J 
end if; 
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3. 2. 2. 276.13 liiaSQff.S.i.iff. £5112.2.2.5 Geneva ^.ecj . - 
SEVERITY 

14055 E pragma should have only one argument 

14056 E arguments to the list pragma should be on or off 



3. 2. 2. 276 .14 iiaaalsi Q.L S££U£&yJL£l« ~ None 



3.2.2.277 lu^aLaaiaa* - Dage 



3.2.2. 277 . 1 SUcaaiS* - Perform name resolution upon tne page pragma for all 
targets. 



3.2.2.277.2 AlSU2aiiafll« "* None 



3.2.2T277.3 laaiSOHSdiliiSO. L3.Q.aua£L£ • "* This subprogram is written in Ada 



3.2.2.277.4 Uisa" B££y.r.iiy.2.lY.» ~ This subprogram is not used recursively 



3.2.2.277.5 Ne.s.i.ga' giikin. - prag_attr 



3.2.2.2 77.6 tdaii Deoen cje nc \ es. - None 



3.2.2.277.7 Ia£ae.£, fisa£Qdail£iSS« "* None 
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3.2.2.277.6 2.sL2£L2.2LiGl liiisliiiiX* Within Package Only, 
3.2.2.277»9 £s l i i n£i > ip.n£2.£.0-£S.d.U.r.l« ~ This subprogram is a Procedure. 

3. 2.2. 277. 10 Earjaai p.axaaaia£s.. - 

the.pr agma : in c.node.ref; -— the page pragma to be processed 

3.2.2.277.11 - None 

3.2.2.277.12 AJ..20.r.i£h m. - 

check that tne_pragma has no arguments 
if ER3UR> then 

invoke "0 i agno se. ms g w with the_pragma for error 14058; 
end if ; 

>. 

3.2.2.277.13 itiii£Q2^t,i£ ZllS.a2.lZ " 

SEVERITY 
£Q££ tU«U£*laE IEXI 

14058 E page pragma should have no arguments 

3.2.2.277.14 txaffl2l§2 2i S£LJA££.1A££S. - None 
3. 2.2 .278 2,u.bj£r p.gjiam. " genera I ^.pragma. 



3.2. 2.278.1 PiiiaaiS* - Performs name resolution upon the pragmas for all 
targets. 
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3. 2 • 2. 27 8. 2 4i2U2aii2Q.S« ~ None 



3.2.2.273.3 IiaiSfliaaltiiLliaQ Liaauaas* ~ This subprogram is written in Ada. 

3.2.2.273.4 Lisasl da£.U.Laiia.i£» ~ T his subprogram is not used recursively. 

3.2.2.278.5 Ne.s.£.sa Miiaia* " pragma ttr 

3.2.2.278.6 Hail QsaS.aa'SLQaiiS.S* ~ None 

3.2.2.273.7 I QeaSQ3aQ£i£2« ~ None 

3.2.2.278.3 S.uaa£aa£ii!S ¥iliaiii£Y.« - Within Package Only. 

3«2.2.278.9 Fyric i on /f.P i ro y c,e,d,t/r,3 • " This subprogram is a Procedure* 

3.2.2.278.10 tajLaai Paramet ers . - 

the_pragma : in c_no d e„r e f ; — reference to pragma to be processed 

3.2.2.278.11 SiasrSilaatl- - None 

3.2.2.273.12 a j.£ar.i£h.m.. - 

check that pragma has only one argument; 
if ERRQR> then 

invoke "0 i agnose. ms g" with the_pragma for error 14059; 

return; 
end if; 

invoke "EXPS.exo" with argument; 
if ERRQR> then 

invoke "D i agno se • ms g" with the_pragma for error 14060; 
end i f ; 
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case PkAGIA name> of 
PACK>: 

check that argument names a record or arry type but not a 

derived type; 

if ERRQS> then 

invoke " d i agnos e.msg'* for error 14891; 

end i f i 
0 TH E R 5 > : null; 
end if; 



3.2.2.278.13 aia2QSS.IiSL *£1S22SS S£aS£2lSl« - 

14059; E pragma should only have one argument 

14060 £ pragma argument invalid 

14891 6 pack pragma must be given for a non-derived 

record or array only 



3.2.2.2 78.14 tvajEalSi oj. fiaia SJttU£iU££S* * None 



3.2.2.279 iji&fi£P.2f-21« - optimize 



3.2.2.279.1 SLur.SLQ.se.. - Performs name resolution upon the optimize pragma for 
a I I targets. 



3.2.2.279.2 ^s.s.u.mp.iians,. - None 



3.2.2.279.3 l2aiS2>£0.iaUL2Q. L2D.ay.aaS* ~ This subprogram is written in Ada. 



3.2.2.279.4 U^eo. S§£.y.LiU.y.£j.y.« ~ This subprogram is not used recursively 
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3.2.2. 27 9.5 iij.ii.Sfl* *±i!2iG> - pragma ttr 

J.2.2.279.6 Hflii Qsa£n£j5.G£.i£S« ~ None 

3 • 2. 2*279.7 Ii£3£i Qaa&IlSi£ll£iSl* ** None 

3.2. 2. 279,8 SflSataacaffl Vis i b J 1 , t t,Y. - Within Package Only. 

3.2. 2. 279. 9 Fqnct i on/ P r o c,e d u r e . - Th.is subprogram is a Procedure. 

3.2.2.2 79 .10 da£I^i Z^L^BS.L3JL1» ~ 

the_pragma : in c_.node_.ref; — the optimize pragma to be processed 



3.2. 2.279.11 iid.e.-Plf e.ai,s* - None 



3.2.2.279.12 Aj.£o.r iihm. - 

check that here is only 1 argument; 
if ERROR> then 

invoke "0 i agnose. ms g" with the_p ragma for error 14064; 

r eturn ; 
end if) 

check that argument is spelled either "time" or "space"; 
if EXRUR> then 

invoke "0 iagnose.msg" with the^pragma for error 14365? 
end i f ; 



3.2.2.279.13 aiaaaailia Jteiiaass Ssasxaissu - 

SEVERITY 

14064 E optimize pragma should have only one argument 

14065 £ pragma argument invalid 



3-671 

"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document . " 



ALS Compiler "ach j n e-I ndeoenden t Section C5 Specification CS-CP-0059-C84 
I November 19 33 

3. 2.2. 279. i4 5L£^ffi2iaS lL SJkr.aal.U£££« ~ None 

i. 2.2.230 5-il&aca2L12» " suppress 



3.2.2.280.1 Sliliaaia* - Perform name resolution upon the suppress pragma for ai 
targets* 



3.2.2. 230. 2 As.s.y.maiiaD.s,. - None 

3.2.2.230.3 IsalSl£aiaii2£l LaQ£U223£« ~ This subprogram is written In Ada 
3.2.2. 230.^ USLJta &&&yL££i.v.&l£* ~ This subprogram is not used recursively. 
3.2.2.2 30.5 Ne.s.lsg; ilL&!2i2.« " pragma ttr 

3.2.2. 2 80.6 Ho.s.i QsasaStafiaiSS^ - None 

3.2.2.230.7 Iar.2£i Qsa2QilSQ£iS5» None 

3.2.2.280.8 SiiaaiaSf-an* ¥i£±aii JLlY. • " Within Package Only. 

3.2. 2. 2'80.9 P^nql; j qn< Pro cedur e . - This subprogram is a Procedure. 
3.2.2.280.10 £a£22ai P.a£ai2 £££££• ~ 

the_pragma : in c.node.ref ; — the suppress pragma to be processed 
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3. 2. 2. 2 BO. 11 iidS:5ill£ii« - None 



3 .2. 2. 2 30. 12 &laar.ilLhm. - 

check that first argument is only a "check ..name"; 
if ERROR> then 

invoke "0 i agnose.msg" with the_pragma for error 14066; 

return; 
end i f ; 

i f SECOND argument is present) 
then 

invoke "EXPS.exp" with second argument; 
if ERR0R> then 

invoke "0 i agno se • ms g" with the.pragma for error 14067; 

return; 

end if; 

check that name is only an object or type naue; 
if 6RRG<?> then 

invoke "d i agnose.ug w with the_pr agnta for error 14895; 
end t f ; 



end if; 



3.2*2.280.13 Qiaaoasiis iiasiaas-s fianaialsfl- - 



SEVERITY 



14066 



E 



first argument to suppress pragma must be a check name 



14695 



E 



second argument must be a type or object name 



14067 



E 



second argument Invalid 



3.2.2.280.14 iiiLSiaiSS. at £Uia. i±r uStiULSS- ~ None 



3.2.2.281 SuaaLSLSXaa* ~ system 
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3.2.2,2 ! 3i.l 2lil.L22.SS.* *" Perform name resolution v upon the s/steu oragma for 
R0lM166^ target* 



3.2.2.281.2 is.s.umo.ii.o.Q2, - None 

3.2.2.281.3 Imp I ementati on Laa2U2SS» " This subprogram is written in Ada, 
3,2,2,28.1.^ Us.e.d. ESS.U.LS.iy.S.iX* *" This subprogram is not used recursively, 

3.2.2.231.5 ^asi52 iilflill • - prag.attr 

3.2.2.281.6 £2251 &S2a n .S , £2S.i£S« ~ None 

3. 2,2. 2*1. 7 Ia£S2.i !2S22a£SLQ2i.2S« - For the ROL.il 1666 target as in the Aspec. 

3.2.2.231.8 Su.b2£22£ai« Y J, 5 tOll tty « - Within Package Only, 

3.2.2.281.9 g if n c 1 1. on I P„ r.p, cedur.e , - This subprogram is a Procedure* 

3.2.2.281.10 £2£inai 2.ar.a!2££&£S. • ~ 

the_pragma : in c_node_.r ef » — the system pragma to be processed 

3.2.2.281.11 Si5-S=£11^2lS- - None 

3.2.2.281.12 AXa2f.ii.l2D!* - ' 

check that there is only one argument 
if ERRORS then 

invoke "0 i agnose. ms g M with the_pragma for error 14068J 

return; 
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ana if; 

invoka "SXPS.exo" with argument 
if £RRGR> then 

invoke "0 i agno se. ms g" with the^pragma for error 14069; 

return; 
end i f ; 

if ARGUMENT not part of enumeration type system sys tem_name> 
then 

invoke "0 i agnose .ms g" with the_pragma for error 14070; 
r e tur n » 
end if; 

if ARGUMENT not R0LM1666.SA or 

R0LfU6o6> 

then 

invoke "0 i agno se« ms g" with the_pragma for error 14071; 
end i f ; 



3.2.2. 231. 13 Qia2QSLS.tj.£, * §.113.112. ££Q2£2i£a« - 

SEVERITY 















14068 


E 


system pragma should hava only one argument 








14069 


E 


pragma argument invalid 








14070 


* 


argument should be the system name 
R0LM1666 


R0L*166S 


_SA 


o r 


14071 




argument should be the system name 


R0LM16663 


-SA 


o r 



R0LM1666 



3.2.2.281.14 iiaiSalS£ 21 iialS Iir.U£lUtSS- " None 
3.2.2.232 Sji h .D.£0.£L2!!!» - attribute 



3.2.2.282.1 £ y.r.a.25.e. • - Perform name resolution on and checks legality of an 
attribute that has no parameters* for the VAX/V.MS targetj the VAX.SA target* the 
ROLM 16028_SA target, and the R0LM1666.SA target. 
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i.2.<i.232«Z £l§,Uffifi£i2G.S« ~ .None 



3.2.2.232.3 laalsaSQiaiiflQ Laoaktaag • ~ This subprogram is written in Ada. 



3.2.2. 282.4 Uie.3 £S£!AX.£iY.SJ.£« ~ This subprogram is used recursively. 



3.2.2.282.5 N§.s£e(3 jiiihin. - prag_attr 



3.2.2.282.6 HfiSi Q32SI!^S2£i,ai» ~ None 



3.2.2.232.7 Iar.S£& D.SP.S r l3§. n .SLi£.2« ~ all. targets except the POP 11/70 Unix. 



3.2.2.282.8 SukflX 1L2.±£±L ill' " Within Package Only. 



3.2.2.282.9 Funqt i or}/, Prq cedure . -.This subprogram is a Function with a 
c.node^ref result type. 



3.2.2.282.10 £2£2ai P.3LS12SJtS£5. • ~ 

attr : in c^node^ref; — the attribute to be processed 

3.2.2.282.11 S.i4e.-£II e.c.£.j&. - None 

3.2.2.2 32.12 AiaaLiltll* - 

invoke "exps.exp" with as.name of attr an 
names as context. 

if ER.RQR> then mark attr as in error. 

r eturn V0I0>; end if; 
case ATTR i d> o f 

A00R£S5> : name must indicate an objector subprog only. 
8ASE> : name must indicate a type or subtype that 
is not a task. 
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SIZS> : naue must indicate a non task type or suotype 

or an ob j ect • 
I1AG£f value> : 

name must indicate a scalar type or subtype. 
FIKST* last> : 

name must indicate a scalar type or subtype or 

an array type or subtype constrained 
only) or an object of array type or subtype* 
PQS* val, predi succ> : 

name must indicate a discrete type or subtype* 
OElTa* ac tua I _de 1 1 a* bits> : 

name must indicate a fixed point type* 
LARGE* macn i ne.r ounds> s 

name must indicate a fixed or flp type* 
DIGIT* mantissa* emax » small* 

eosiion* mach i n e_r ad i x » mach i ne.man t i ssa, 

mach i ne.emax * mach i ne_em i n * mach i ne_o v er f I ows > : 

name muse indicate a floating point type or 

subtyoe only. 
LENGTH* r3nqe> : name must indicate an array 

type or subtyoe* or an object thereof* 

constrained only. 
C0NSTRaINE0> : name must indicate a type rfith discriminants* 
POSITION, first. bit* last_bit> : 

name must indicate a record component* 
STQRAGE.S IZE> : name must indicate an access type. 
TERMINATcD* priority, failure* s t or age.s i ze> : 

name must indicate a task object or type* 
C0UNT> : 

name must indicate an entry* 
8ASE> : 

name must be a tyoe or subtype* 
0ISP> : name must indicate a (potential) parameter to a 

code statement; 
GTH£RS> : error? 
end case; 

if ERROR> and PRAGMA.FLAG not set> then 

invoke w d i agnos e •msg" with attr for error 14006 

return V0I0>; 

else mark attr as error; 

return VQI0>; 
end if; 

return attribute result type* 



3*2.2.232.13 Qia.aQfls.iis &es.s.aa«2 £eQ££a£e£« " 
SEVERITY 

14006 E illegal attribute of this name. 
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3*2*2. 23*. 14 iisaaXsi 21 i22ia li£ii£ly£SJi. - None 



3. 2*2. 233 Suia£iiaca!S» ~ interface 



3*2*2*283*1 £ > ir.o.2,if»* "* Perform name resolution uoon the interface pragma for 
the VAX and ROL* targets* 



3*2*2.2 3 3. 2 &s.iU2!fl£i2!2S.« - None 

3*2*2.283.3 l22i£2S n .JLa£i..20. Laaauaa£» " This subprogran is written in Ada* 
3..2*2*233*4 ysSJl £££slXaLLliLL3> " This subprogram is not used recursively. 
3*2*2*283*5 NfilJLSSl JaiitLLH* ~ prag_attr 
3*2*2.283*6 tlail &£a£a£l£ CSiSS • None 

3.2*2.283.7 laiasi Depending i e ^ * - For all targets except tne POP 11/70. 
3*2*2.283*6 £ilho.L22£a!2 Ziii^iiiil* - Within Package Only. 
3*2*2.283.9 Euoc t; f gn/, P.r T o qe.dq^e * - This subprogram is a Procedure. 
3.2.2.283*10 t2LJZ^i P.aL2!S £ ££1 • - 

the^pragma : in c_node_ref; --the interface pragma to be processed 
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3.2. 2. 28 3. 11 i.ii£=LL!a££S.« - None 



3.2.2.283.12 Ai^fiLilUlS- ~ 

invoke "EXPS.exo" with second argument; 
if ERROR; then 

invoke "D i agnose. msg w with the_pragma for error 14062; 

return; 
end i f ; 

checK that second argument is only a subprogram name; 
if ERR0R> then 

invoke "diagnose.msg" for error 14057? 
if ANY more arguments exist> 
then 

invoke "0 i agnose. ms g" with the_pragma for error 14063; 
end if; 



3.2.2.283.13 Qi^sQ2aii£ Sanaa^s Sanstaisa* - 



14057 
14061 
14062 
14063 



SEVERITY 



t second argument must be a 

W invalid language to be interfaced 

E second interface argument invalid 

fc interface pragua should have only two arguments 



subprogram name 



3.2.2.283.14 ixa.maJ.e.2, 2t Qlla Sif.U£tU£.£S* ~ None 



3.2.2.284 2jLS.k2.ae.* - prag.attr 



3.2.2.284.1 PyLCaaSS* ~ A target dependant package to check pragnas and 
attributes and to perform name resolution on them. This is for the VAX780_VMS 
target only. Only this prag_attr package will be included for that target. 
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3.2.2.294.2 ^y,2&££. ai iu£a£.22.£.2E§. • ~ 11 



3.2.2.2 34,3 asasasiaaaias an Qinsi P.aaiaa£i tar. iaaa* - cdm_ types 



3.2.2.284.4 &ddj.iiaaai aaaandaaaisi la£ Hal** - exps 



3.2.2.284.5 Pastas Sasailiaaiiaa • - 

— visioie outside package 
procedure praqmat... 
procedure attribute... 



3.2.2.284.6 aiaaaLaliaO. £a&S-« *" None 



3.2.2.2^4.7 JL&aaaiss. al Gala iiLiiaiur-si* ~ None 



3.2.2.2 85 Su.&aLaar.aS!* ~ oragmat 



3.2.2.285.1 Py.£aasa« "* Perform name resolution upon pragmas all targets. 



3.2.2.2 85.2 As.SU2iai.iaaS* " None 



3.2.2.285.3 IiaiSfflSaJLaJLLaa LaaauaaS- " This subprogram is written in Ada. 



3.2.2.285.4 Usaa Eiay.LlilS.il* ■'- This subprogram is not used recursively. 
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3.2.2.2^5.5 ^iSlSfl &iltliO.» - pragma tt.r 



3.2. 2. 235*6 HQ.S.& ilii2.IllSIlS.ia5.* None 

3.2.2.285.7 Iaxas.t Q.SaaD.SlaQS.ijSLS* ~ None 

3.2.2.235.8 iu&fir o.ar.a.m. yj.2i2ililX* " Outside Package. 

3. 2. 2.285.9 Function/Proea^lura. - This subprogram is a Procedure. 

3.2.2.285.10 E2fJ2§JL 2,3X&niSL£.£!S.» ~ 

the_pragma : in c„nod e_r e f ; — a reference to the pragma to be checked 



3.2.2.285.11 Si^S=£ltS£ikS« - None 



3.2.2.285.12 &laar..Ui2!3. - 

case THE.PRAGMA is> if 
PAGE>s invoke "prag_a ttr .page" ; 
TITLE* include* memor y^s i ze » priority* 
storage_un i t * pack>. 

i nvoke "pragma ttr • general ..pragma"; 
INTERFACED invoke "prag_attr . i nt er f ace"; 
0PTI«IZH>: invoke "pr ag_att r • opt i mi ze" ; 
SUPPRESS>: invoke "pr ag.a tt r . supp re ss" ; 
SY5TEM>: invoke "prag_attr. system"; 
INLINE>: invoke "prag_attr. inl ine"» 
C0NTR0LL£0>: invoke "pragma ttr .contro I led"; 
LIST>: invoke " prag_a ttr. I t st" ; 

QTHERS>: invoke "0 i agnos e.rasg" with the_pragma for error 14033; 
end case; 
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SEVERITY 

14033 W Pragma not recognized 



3.2.2.2Si>.14 jsamaiSS. Ql 5i£USi.U£££ • " None 



3.2.2.2 86 2y,aar.o.afJi!2« ~ sySten 



3.2.2.2?6.1 £u£aasa» " Perform name resolution upon the system pragma for 
VAX780.VMS target. 



3.2.2.286.2 A£iU2!aiiaai» * None 



3.2.2.286.3 IialSiaalaLLaa L^aaiiaaa* ~ This subprogram is written in Ada. 



3.2.2.286.4 Lis.e.a &S.iyL£S,jLI3 > i¥«. ~ This subprogram is not used recursively. 



3.2.2.286.5 Ne.££,£a ttiiaia* ~ prag-^attr 



3.2.2.236.6 Hg.£i, m»s. - None 



3.2.2.286.7 Ia£££l HSflanlaaaiaS • - F°r the Vax 780 VMS target as in the Aspec. 



3.2.2.286.8 Suaa£a2£aQ! y.iS.iai.ljLi£« *" Within Package Only. 
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i.2.2.2So.9 £ii2£,IiiiQil£lLa£*lU.La,« *" Tnls suoprogram is a Procedure. 



3.2.2.286.10 PanaaJ. £Lar.aois,l£LS« - 

the.praqraa : in c_node„,ref; — the system pragma to be processed 



3.2. 2. 286. 11 Sia$.z£L!££i.a« ~ None 



3.2.2.286.12 AJLaaCiitUD* ~ 

check that tnere is only one argument 
if ERR0S> then 

invoke n 0 i agno s e. ms g" with the_pragma for error 14046; 

return! 
end if; 

invoke "£XPS.exD n with argument 
i f ERRGR> then 

invoke "0 i agnose. ms g M with the_pragma for error 14047; 

r eturn; 
end i f ; 

i f ARGUMENT not part of 

enumeration type system 
sys tam_name.> 

then 

invoke "Di agnose.msg'* with the_pragma for error 14048; 
return;, 
end i f ; 

if ARGUMENT not VAX780_ VMS or 
VAX780 

then 

invoke "0 i agnose. msg" with the_pragma for error 14049; 
ena i f ; 



3.2.2.286.13 Qia2Q2S.liS. 2e.2s.as22 G^aSLllSi- - 



SEVERITY 



14046 



E 



system pragma should have only one argument 



14047 



E 



pragma argument invalid 



14048 



E 



ar gument 



mus t 



be 



the 



sys tern 



name 



VAX780.VMS 



o r 



VAX780 
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1404^ * argument should be the system name P0P70_UNIX or 
aidUdd POP 70 



3.2.2.28o.l4 feaacalSi al Q^ia 3l£u.c.£u.£££<» - None 



3.2. 2. 2 87 Subaf-li2£aia • " inline 



3.2.2.237.1 EirjaaS* • - Perforins name resolution upon the inline pragma for all 
targets* 



3.2.2.287.2 ££SU!£2ii.&QS« " None 



3.2.2.287.3 laalSa&O.iaii.aO. L3LQ2Ua£Ut« ~ This subprogram is written in Ada. 



3.2.2.287.4 UiSSL &£.&ll,£.liy.£i£* " This subprogram is not used recursively 



3.2.2.287.5 lissisg. WilHia. - pragma ttr 



3.2. 2.287 .6 Has! (2£aSLQd£!lS.i£&« — None 



3.2.2.287.7 Ia.rae,£ Q.2.2.2.Q.&S.2S.LS.1' ~ None 



3.2.2.237.8 2y.hp.r.o.£r.a,m yisl bJ U Lty . - Within Package Only. 



3.2.2.287.9 Euriaii2a££]L2££fl , U££« ~ This subprogram is a Procedure, 
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3.2.2.267.10 £2L!&1 Z&LAZS.LlLl- " 

the_pragma ; in c^node.ref » — - the inline pragma to be processed 

3.2.2.237.11 ij.d.a-£if e.c.is.. - None 



3.2.2.287.12 AlaaiJLitia* - 

while ARGUMENT list not at end> 
i oop 

invoke "EXPS.exp" to identify argument 
i f ERR0R> then 

invoKe "0 i agnose .msg" with the_pragma for error 14050; 
return; 
end if; 

check that the argument is the name of a nongeneric 
subprogram declared in the same declaration part; 
if ERR0*> 
then 

invoke "0 i ag nos e. msg" with the_pragma for error 14051; 

r e tur n ; 
end if; 
advance position in list; 
end I oop i 



3.2.2.287.13 ai^5EflSli£ 2SiSaaSi SSfiSliUS^* - 
SEVERITY 

I£*I 

14050 E pragma argument invalid 

14051 E inline argument must 

subprogram name 



be 



nongener 1 c 



3.2.2.287.14 £iamo.ias, 21 £Ll£3 SlL U£ £.121.22 • ~ None 
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3.2.2.23d Iy,S.££.o.Qr.a2i« - control lea 



3.2.2.288.1 2.U£22S2,« - Perform name resolution upon a controlled pragma for all 
targets* 



3.2.2.288.2 AaJLUfflfiliaflS* - None 

3.2.2.258.3 il&l£<2£Qisliii?Q klQ.il iULilS* "* This subprogram is written in Ada 

3.2.2. 288.4 Uisa. &£C.u.£Siy.£ly.« - This subprogram is not used recursively. 
3.2.2.2 38.5 Ne^lsd. Wi&hin. - pragma ttr 

3-2. 2.288, b aasi Qsaaaaanai&s,* - None . 

3.2.2.236.7 Ia.£2e.£ fi£o.ejjd,ejQCj.e. s.. " None 

3*2. 2. 288. 8 Sii2e.L22E.a2! VilikiiiiY.. - Within Package Only. 

3*2. 2.288.9 Eu2£iiflQ^£2££lyr.e.» - This subprogram is a Procedure. 

3.2.2.288.10 Parameters. - 

the.pragma : in c.node.ref; — the pragma to be processed 
3.2.2.2 38.11 iids = £ile.c.ii. - None 
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3. 2 .2. 2 3d. 12 &.U2£ > iJ t hm. ~ 

check that tne controlled pragma has only one argument; 
if E*RQR> then 

invoke "0 i agno se« ms g" with the_pragma for error 14052; 

return* 
end if; 

invoke "EXPS.exo" with argument; 
i f ERR0R> then 

invoke "0 i agnose. ms g M with the_pragma for error 14053; 

return; 
end i f ; 

check that argument is only an access type (not derived from one) declared in 
the 

same declarative part; 
if E SiRQ?> then 

invoke "0 i agnose* ms g'* with the_pragma for error 14054; 
end i f ; 



3.2.2.238, 13 ii22Q2i!i£ * §.113.22.$ £en£r.2ie4. - 

SEVERITY 

£a0£ £U*x£*.UE IESI 

14052 E pragma should have only one argument 

14053 E pragma argument invalid 

14054 E controlled argument must be an access type 



3.2.2.283.14 taamaiSS. Ql P.3ia lLf.M£lU££l* - None 



3.2.2.289 £yJiar.o.2£am. - list 



3.2. 2. 239.1 £u£a2SS* *" Perform name resolution upon tne list pragma for all 
targets. 



3-687 



"Use or disclosure of technical data and/or computer software 
is subject to the restrictions on the cover of this Document." 



AL5 Conoiler Machine-Independent Section C5 Specification CR-CP-0059-C34 
1 Novenoer 1963 



3.2.2.289.2 £.§.2U!£li.2.D.£» None 

3.2.2. 239.3 IfflaiSffiSaiaiifiO, LaQ.2ua.aa* ~ This subprogram is written in Ada 

3.2.2.289.4 Ussfl. &ac.U££iXSJLy,* " This subprogram is not used recursively. 
3.2.2. 289.5 NsSlSfl «* \ „ t h i n . - prag_attr 

3.2.2.239.6 aaai USaS0.ila2SJ.SS* - None 

3.2. 2.289.7 T a.r.ilS£, QS aSO.il S2.S, is 1 • ~ None 

3.2.2.239.3 Suoorggr am; V ) s i,p j I i \y . - Within Package Only. 

3.2.2.289.9 £uO.£lifiQ.££L9.£SlULS» ~ This subprogram is a Procedure. 

3 .2. 2. 2 8 9. 10 £ar.JBal Pq r . a me^er,^. - 

the_pragma : in c.node.ref i — the list pragma to be processed 



3.2.2.289.11 Uas=£liSSiS. - ^ne 



3.2.2.239.12 ^iaaciJLhfQ. - 

check that there is only one argument; 
i f ERR0R> then 

invoke "Oiagnose.msg" with the.pragma for error 14055; 

return; 
end i f ; 

check that tnis argument is soelled "on" or "off"; 
i f E RRQR> then 

invoke "Di agnose. msg" with the_pragma for error 14056J 
end if; 
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3.2.2.2 39.13 Uia2Q2iti£ *aSi3.2£.s. iS.D.S.LlLS. a ' ' 

iEVEKlTY 

14055 £ pragma should have only one argument 

14056 £ arguments to the list pragma should be on or off 



3.2.2.239.14 fi.^22lfiS. 2l data Si£U£iyLS5« - None 



3.2.2.290 £y,b.a£aaL . - page 



3.2.2.290.1 2,U£22>SSL e ~ Perform name resolution upon the page pragma for at I 
targets. 



3.2 .2. 290. 2 iSiiifflttiiaaJI' - None 



3.2.2.290.3 l22iaiaO.laU.2Q U^nquaqe . - This su* pro gran is written in Ada 



3.2.2.290.4 !2iS2 daayxsivej.y,. - This subprogram is not used recursively 



3.2.2.290.5 N££iaa iiiihin. - prag_attr 



3.2.2.290.6 H2H Oeoendenc. j q$ . - None 



3.2.2.290.7 Iatafil fiS2a25l£E2jLSS« ~ None 
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3.2.2.290.6 2ilk£9.3£,sl2 ¥ ill 2.11 ill • - within Package On'jy. 

3.2.2.290.9 £knc.ii2QZ.£L2£SilU££« ~ This subprogram is a Procedure. 

3.2.2.290.10 EatJai 2,a£aiSS£a£l« " 

the_pragma : in c^node.refj — the page pragma to be processed 

3.2.2.290.11 Uas = £t£ft£is. - Mone 



3. 2. 2. 290. 12 &iaa£i£i22!» - 

check that tne_pragma has no arguments 
if eftR0S> then 

invoke w Di agno se. ms g" with the„pragma for error 14058; 
end if; 



3.2.2.290. 13 aiaaaaiiia Sasaaaaa ■ fiansiAiaa* - 

SEVERITY 

1405<J £ page pragma should have no arguments 



3.2.2.290.14 iiaaalas. 21 saia SJtLua&uLaa* ~ None 



3.2.2.291 Sii!lp.£p.S£a!Ii« "* genera I ..pragma 



3.2.2.291.1 £u.£fio.s.e.. - Performs name resolution upon the pragmas for ail 
targets. 
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3. 2. 2 • 291 • 2 iiSUSiiiiaQi* ~ None 



3.2.2.291.3 Ia2lsasaiali2!2 L3.Q.£Usi££* ~ This subprogran is written in Ada. 



3.2.2.291.4 I2&£2 &££UXSiy.Sj.*« - This subprogram is not used recursively. 



3.2.2.2°1.5 ^£2,153. iilhin. - prag_attr 

3.2. 2. 291. o tiaii Q2,a£Q<2SG£iaS,« *" None 

3.2.2.291.7 lanaai Qeoenden,c i.e^. - None 

3.2.2.291.8 SiA2aJL22L3G! y.ili£ilily.« ~* Within Package Only. 

3.2.2.291.9 &UQ£ii2Q££L2£S.<iur.e. « - This subprogram is a Procedure. 

3.2.2.291.10 tlLZ^L Z3LLsL21S.SkS.Ll* ~ 

the.pragrna : in c.node.ref i — reference to pragma- to be processed 



3.2.2.291.11 iiaSZillSS.il* - None 



3.2.2.291.12 Aia2£il!l3S« - 

check that pragma has only one argument; 
if £RRQR> then 

invoke "D i agnose. ms g w with the_pragma for error 14059; 

return; 
end t f ; 

invoke "EXPS.exp" with argument; 
if ERRUR> then 

invoke "D i agnose. ms g M with the_pragma for error 14060; 
end if; 
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case P*4G'"1A nana) of 
PACK>: 

cheCK that argument names a record or arry tyoe out not a 

aer i ved type; 

if EftRQR> then 

invoke "d i agnos e.msg" for error 14891; 

end ifj 
0THERS> : null; 
end if; 



3.2.2.291.13 ii.USQA&i.iS. *££S.2La£.S fiaaaiaLUiJ* - 
SEVERITY 

14059; 5 pragma should only have one argument 

14060 £ pragma argument invalid 

14691 £ pacK pragma must be given for a non-derived 

record or array only 



3.2.2.291.14 ixamo.ia§. at 0.11* - None 



3.2.2.292 SjAaoxaatasn. - optimize 



3.2.2.292.1 PyXaai*,. - Performs name resolution upon the optimize pragma for 
a f I targets. 



3.2.2.292.2 4s.s.u.mfi.li2.!2£« - None 



3.2.2.292.3 Ia2l£3£!lJki.£i.2Q • ~ This subprogram is written in Ada. 



3.2.2.292.4 U£eg. k&e^£sj.vej.v.« ~ This subprogram is not used recursively. 
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3 .2 • 2. 292 • 5 Hasina ailtliQ* - praq_attr 



3.2.2.292.6 Hail £iSaS.fli£Q£.iaS» - None 

3.2.2.292.7 Iar.sa£ Qaaaiia'aflaiaS- - None 

3. 2. 2. 292. 6 £y.a&La2Laai ¥i£±2i.iiiY.« - Within Package Only. 

3.2.2. 292. 9 Euaa£ian£Pra£e.iy.LS. • - This subprogram is a Procedure. 

3.2.2.292.10 Eataai P-af.a12ai.ar.s- - 

the_pragrna : in c„node„ref; — - the optimize pragma to be processed 

3.2.2.292.11 iia£=£lta^I- - None 

3.2.2.292.12 &i£2f.iti2!2- - 

check that here is only 1 argument! 
i f ERR0R> then 

invoke "Oi agnose. ms g M with the.pragma for error 14064 ; 

r e turn ♦ 
end if; 

check that argument is spelled either ••time" or "space"; 
if E RRQR> then 

invoke W D tagnose.msg" with the_pragma for error 14065; 
end if; 

3.2.2.292.13 2iaSQ2£ii£ Me.£saae.s„ ££Qe£2i^. - 
SEVERITY 

14064 E optimize pragma should have only one argument 

14065 E pragma argument invalid 
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3.2 .2. 292. 14 iianjuiSi. 2.1 2312. Structures. - None 



3.2. 2. 293 SiJ,tI2£a2£2!H • *" suppress 



3.2. 2*293.1 SiiXaase.. - Perforn name resolution upon the suppress pragma for ail 
targets. 



3*2*2.293.2 AiSUHiaJiiariS* - None 

3*2.2. 293.3 Iaal.2aeQia.liaa LiQ2uaa£» • This subprogram is written in Ada* 

3*2.2.293*4 !isaa dsay.£liy.2,lY.« ~ This subprogram is not used recursively. 

3*2.2. 293* 5 Ne,£i.e.a. 2iil2ia» - prag_attr 

3* 2*2* 293* 6 Hasl Saaaadaaaias* - None 

3. 2 .2* 293* 7 Ia£aa£ fisaSQ£tSaai§5 • " None 

3*2* 2. 293*8 laaa£aa£221 ¥lslail±l£« ~ Within Package Only* 

3*2*2. 293*9 £un£iiaQ£ , ££ac.£2 , u.£2.» .- This subprogram is a Procedure. 

3.2.2.293. 10 £a£23l Ea£a2«i3£l- " ' ■ 

the^pragaia : in c_node_ref> — the suppress pragma to be processed 



3-694 

"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Conoiler Macn i n e- 1 nriep en den t Sec t i on C5 Specification CR-CP-0059-C8 A - 

I Nova-noer 1963 



i.2.2.293.11 iia£=£I£££.l2» ~ None 



3.2.2.293,12 AiafirJ^hfTi. - 

check that first argument is only a "ctieck^name"} 
if ERROR> then 

invoke "0 i agnose.ms g" with the_praoma for error 14066J 

return; 
end i f ; 

if SECOND argument is present> 
then 

invoke "f-XPS.exp" with second argument; 
i f tRR0R> then 

invoke "0 t agno se. ms g w with the_pragma for error 14067; 
return ; 
end if; 

check that name is only an object or type name; 
if ERRUR> then 

invoke "a i agnose. ng" with the.pragma for error 14395; 
end if; 
end if; 



3.2.2.293.13 iiaaafliiia iasiaass GsaaLaiast- - 



SEVERITY 



14066 



first argument to suppress pragma must be a check name 



14895 



E 



second argument must be a type or object name 



14067 



c 



second argument invalid 



3.2.2.293.14 sLiamp.J.e.2. al Q^Lii. Si£u.£.lUf-£i« ~ None 



3.2.2.294 iy.&a.r.g.ar.a.m. - attribute 
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3 • 2 • 2 • 29-*» . 1 2,ir.ii25.*« ~ Perforn name resolution on and checks legality of an 
attribute that has no parameters* for the V AX /VIS target* the V AX_S A target* the 
1o02B_SA target* and the R0LM1666_SA target. 



3.2 .2. 294. 2 is.iiASaii2.GS' " None 



3. 2. 2. 294. 3 laaiSESalaliiiO. Lan gua.ge, . - This subprogram is written in Ada. 



3.2.2.294.4 Uss^ s.j.v ej„y.. - This subprogram is used recursively. 



3.2.2.294.5 ilSliSfl SiilaiH* - prag^attr 



3.2.2.294.6 Has! Q£&£i}<2&!L£i&l« *" None 



3.2.2.294.7 l&LSL&i. Q£2£nd£G£.iS.£ • - For all targets except the POP 11/70 Unix. 



3.2.2.294.6 Suaaf-fiataai ViSiaiiii.y.« - Within Package Only. 



3.2.2.294.9 Function/Procedure. - This subprogram is a Function with a 
c_node_r ef result type. 



3.2.2.294.10 £aoaI Z&LsL™2.%.£L$. • - 

attr : in c_node_ref ; — the attribute to be processed 
3.2.2.2' 94. 11 iid.s=£ile.c.l5. - None 
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3 • 2. 2. 294 • 12 A J.sg.jQii.nm. - 

invoke "exps.exp" with a s.name of attr an 
names as context. 

if ERROR> then mar K attr as in error. 

return VOID>; end if; 
case ATTR i d> of 

ADDRESS> : name must indicate an objector subprog only. 
BASE> : name must indicate a type or subtyoe that 

is not a task. 
SIZE> : name must indicate a non task type or subtype 

or an object. 
I*AGE, value> : 

name must indicate a scalar type or subtype. 
FIRST* last> : 

name must indicate a scalar type or subtype or 

an array type or subtype constrained 
only) or an object of array type or subtype. 
POS* va I * pr ed » succ> s 

name must indicate a discrete type or subtype. 
DELTA » actual .de I tat bits> : 

name must indicate a fixed point type. 
LARGE* mach i ne„r ounds> : 

name must indicate a fixed or flp type. 
DIGIT, mantissa* emax* small* 

epsilon* machine. radi x » mach i ne.man t i ssa* 

mach i ne.emax 9 mach i ne_em i n * mach i ne_over f I ows> : 

name must indicate a floating point type or 

subtype only. 
LENGTH* range> : name must indicate an array 

type or subtype* or an object thereof* 

constrained only. 
CQnSTR A INED> : name must indicate a type with discriminants. 
POSITION* f i rst.bi t» last.bi t> * 

name must indicate a record component. 
ST0RAGE.5 IZE> : name must indicate an access type. 
TERMINATED* priority* failure* s tor age_s i ze> * 

name must indicate a task object or type. 
COUNT> : 

name must indicate an entry. 
8ASE> : 

name must be a type or subtype. 
OISP> : name must indicate a (potential) parameter to a 

code statement; 
> 0THERS> : error; 
end case; 

if ERRQR> and PRAGMA_FLAG not set> then 

invoke "d i agnose.msg" with attr for error 14006 

return VQID>; 

else mark attr as error; 

return V0ID>; 
end if; 

return attribute result type. 
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3. 2. 2. 29 4. 13 aiaSQfiSlLic. 222*125.2 k£I22J.a£pd . - 
SEv£kITY 

14006 e illegal attribute of this name* 



3.2.2.294.14 siaaaiSS a! fijia SiLUS.lil.LSS • ~ None 



3.2.2.295 £iAk2L°.2Lan!« ~ interface 



3.2.2.295.1 EuLaasa* - Perforn name resolution upon the interface pragma for 
the VAX ana *0l* targets. 



3.2.2.295.2 ASJiUaaliariS* " None 



3.2.2.295.3 I2ale.1ne.niaii.2a LadiHiaaS • ~ This subprogram is written in Ada 



3.2.2*295.4 Una %ecMf % i ,v,.e |, v. - This subprogram is not used recursively. 



3*2.2.295*5 Ne.s£e.a 'zLLLhLH* " prag„attr 



3*2.2*295.6 Hail Q£E,£Il£iS.!2£LiS.£ * None 



3.2.2.295.7 Taxaal Q.S.Q.SJUiS.HS.LSLl* " Por all targets except the POP 11/70. 



3.2.2.295. 3 SiiaanaSLaa ViSiaJLiiiX- - Within Package Only. 
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3.2.2.295.9 EL£.2£iil!J.L* . - This su Do r og r an is a Procedure, 



3.2.2.295.10 F o,£2ii £3L3ISSlS£S.« ~ 

the_pragma : in c.node.r ef ; — the interface pragma to be processed 



3. 2.2. 295. 11 iiaSr£tlaiIS« - None 



3- 2.2. 295. 12 Aj.a2£i££ia!« - 

invoke "EXPS.exo" with second argument; 
if E R^QR> then 

invoke "0 t agnose. ms g" with the.pragma for error 14062; 

return; 
ena if; 

check that second argument is only a subprogram name; 
i f EKRQR> then 

invoke "d i agnose. msg" for error 14057; 
if ANY more arguments exist> 
then 

invoke "Di agnose. msg" with the.pragma for error 14063; 
end i f ; 



3.2.2.295.13 ai^2Q2iti£ *£2£a.2££ fiSOSHatsa- - 



SEVERITY 



14057 



E 



second argument must be a 



subprogram name 



14061 



invalid language to be interfaced 



14062 



E 



second interface argument invalid 



14063 



E 



interface pragma should have only two arguments 



3.2.2.295.14 i*a.mpj.e.s. £>! Saia lfc£U£iUL££* - None 
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3.2.2.296 Eicjiias* - prag_attr 



3.2.2.29o.l £,uf.aaS£« - A target deoendant package to check pragmas and 
attributes ana to perform name resolution on them. This is for the VAX780.S4 
target only* Only this package will be included for this target. 



3 .2. 2. 2 96. 2 ^'i2&.£L at Ii«l]iaf.a2I.3.Gi£ • 15 



3.2.2.296.3 aaafiafiaaaias. 2n Hilar. P-aaiiaass. tar. 5.aaa» - cdm.types 



i. 2. 2. 296.4 4<3diiiaaai isaaalanaiai tai ia!** - e*os 



3.2.2.296.5 Eaanaaa iaaailiaaiiaa* - 

— visiole outside package 

procedure pragmat... 

procedure attribute... 



3.2.2.296.6 EiaaaLatiaa £aa"a» ~ None 



3.2.2.296.7 EiaJSaiSS. al Q&£a iiLUalUiaS* - None 



3.2.2.297 S.y,aa£a2£a!2« ~ pragmat 



3.2.2.297.1 EaLaaS£« " Perform name resolution upon pragmas all targets. 



3.2.2.297.2 As.s.u.EaiiaD.1* *" None 
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3.2.2. 2°7. J l22lS]l£Q.iiii2Q LiQ.£U2,22» "* This subprogram is written in Ada. 

3.2.2.297.4 ilisd &e.c.u.r.5iveJLy.. "* This subprogram is not used recursively. 

3.2. 2.297. 5 Ne.5i.g3 Wj,ihiQ. - prag„attr 

3.2.2.297.6 HfiSi fiSaaQdSIlSiiS* *" None 

3.2.2.297.7 Ii£a£i USiiSQillGSiSl • "* None 

3. 2.2.297. <i 2u2fl£ii2£2!2 ^i£i2ili£Y.« ~ Outside Package. 

3.2.2.297.9 £uQ2ii2a££r.222£lU££ • - This subprogram is 3 Procedure. 

3.2.2.297.10 £2rj2al P.aLii2S;L215« — 

the^pr agma : in c.node.ref J — a reference, to the pragma to be checked 

3.2.2.297.11 ii2S=£lla2iS« - None 

3.2.2.297.12 Aj.S2r.Uaro.. - 

case THE_PRAG M A is> if 
PAGE>: invoke "prag.a ttr • page'* ; 
TITLE* include* memory^si ze* priority* 
s torage.un i t ♦ oack>: 
' invoke "pragma ttr .general ..pragma"; 
INTERF ACE> i invoke "p r ag_a t tr . i nt er f ac e'» ; 
OPTIMIZED invoke M pr ag.a 1 1 r • op t i mi ze" J 
SUPPRESS>: invoke w pr ag.a t tr • supp re ss" ; 
SYSTE1>: invoke "prag_attr. system"; 
INLINE>: invoke w prag_attr . in li ne"; 
CONTROLLED^: invoke p rag_a ttr • cont r 0 i I ed" » 
L I S T > : invoke "pragma ttr. I ist"» 

OTHERS > i invoke "D i agnos e. msg" with ths_pragma for error 14033; 
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en a case; 



SEVERITY 

14Q33 w Pragma not recognized 



3.2.2.297.14 iXajSaiSS. 21 i££USlU££S« - None 



3.2.2.298 S.uk2£22£2,2l» ~ system 



3.2.2.298.1 PiLaaie. - Perform name resolution upon the system pragma for 
VAX780.SA target. 



3.2.2.296.2 As.sjyu22&,i2>D.S« - None 



3.2.2.298.3 l22l&iS£!lia£i2Q, la,n.gqa cf^ . - This subprogram is written in Ada. 



3.2.2.293.4 LJiSSl 8 SL£U£Si. ~ This subprogram is not used recursively. 



3.2.2.298.5 &±£hxn. - pragma ttr 



3 .2. 2. 298. b £221 Q£a£fld£Hc.ie.s.. - None 



3.2.2.298.7 Ii£2£l i2e££G££fl£i.2.St« - For the VAX 780 stand alone target as in tne 
Aspec. 
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3.2.2.296.8 lsi2fiI.aaLS!Il iiiiiliiiiY.* ~ within Package Only. 

3.2.2.298.9 Funqt ion/Pro certure . - This subprogram is a Procedure. 

3.2.2.298.10 apxaal PicajaaiaLa- - 

the_pragma : in c.node.r ef ; — • the system pragma to be processed 

3.2.2.298.11 £ide.-£f,f a£lS« - None 

3.2.2.293.12 A,laaf_±ih m. - 

checK that there is only one argument; 
if ERR0R> then 

invoke "0 i agnose. ms g" with the.pragma for error 14042; 

return ; 
end i f i 

invoke "EXPS.exp" with argument; 
if ERR0R> then 

invoke M D i agnose. msg M with the_pragma for error 14043; 

return; 
end if; 

if ARGU/tfcNT not part of enumeration type system 
sy s tem_n ame> then 

invoke M D i agnose. ms g" with the.pragma for error 14044; 
return ; 
end i f » 

if ARGUMENT not VAX780.SA or VAX780> then 

invoke "0 i agno se. ms g M with th e_p r a gma for error 14045; 
end if; 

3.2.2.298.13 2iaa!22£ii£ £S£23.ae£ £§LU2.L1±2.&* ' 

SEVERITY 
£fl££ Hx«i.Ui*.£ I£*I 

system pragma should have only one argument 
pragma argument invalid 

argument must be the system name VA X778Q_S A or 
VAX780 



14042 


c 


14043 


E 


14044 


E 
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14043 w argument must be the system name VAX7780..SA or 

VAX 730 



3,2. 2. 2<?3. 1* tiaaaJUs. at ifcf.ua.Lur.si* - None 



3.2.2.299 2uaar.aar.a2!. - inline 



3.2.2.299.1 Pyr.D.o.s.e. *" Performs name resolution upon the inline pragma for all 
targets. 



3.2.2.299.2 AS.S.H2JP.& i2.H2« None 



3.2.2.299.3 IialaaaaiaLLaa Liiaauiia&» ~ This subprogra-n is written in Ada. 



3.2.2.299.4 tj[a£sl & &au £.£.!.£ 2. JLt« *- This subprogram is not used recursively 



3.2.2.299.5 Ne.s.£,§a. aiiiaia* - pragma ttr 



3.2.2.299.6 Hg.s.£ USaaO.a'a.Qai.aS.' *" None 



3.2.2.299.7 Iaj*a£i USaSEaaflaiaS • - None 



3.2.2.299.3 SuaaLaSLlOl Vj.liaii.Ux. - Within Package Only 



3.2.2.299.9 Funct i on//Pro ced ur e . - This suoprogram is a Procedure. 
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3.2.2.299.10 L2L3!SLi P.lLiES,l£!S,« 

the.pr agma i in c_node_ref; — the inline pragma to be processed 

3.2. 2. 299.11 _.ia_iz_;l_.a_;iS. - None 



3. 2. 2. 299.12 AiaflLU&fll- " 

while ARGUMENT list not at end> 
t oop 

invoke "EXPS.exp 1 * to identify argument 
i f t3R0R> then 

invoke "O i agnos e. ras<j" with the_pragma for error 14050; 
r atur n » 
end if; 

check that the argument is the name of a nongeneric 
subprogram declared in the same declaration part; 
i f £RR0R> 
then 

invoke M D i agnos e .msg" with th«_pragma for error 14051; 
r etur n ; 
end i f ; 
advance position in list; 
end loop; 



3.2.2.299.13 QislSQiliiifi HSL_.J__La_Ut SSfl££ll£St« - 

SEVERITY 

14050 E pragma argument invalid 

14051 E inline argument must 

subprogram name 



be 



non gener i c 



3.2.2.299.14 ix&maiSS. 2 £ £a£a Sir. _ic.£._u_£S.. - None 
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i .2.2. 300 Iiii2aiP.2£22« ~ controlled 



3.2.2. JOO.l fUiaaSS* " Perform name resolution upon a controlled praq-na for ail 
targets. 



3 .2. 2. 300.2 As.s.iijTjo.^j.ans.. - None 

3.2. 2.300.3 LaalsaSQjLaiXflQ. l^aaauaaa* ~ This subprogram is written in Ada. 

3.2.2.300.4 Hassl SaaaXSilli*.* ~ This subprogram is not used recursively. 

3.2.2.300.5 Has.jt.ga fii&aia* ~ pragma ttr 

3.2.2. 300.6 Hail Q.SLSLSLQSlSL'HQ.LS.l* ~ None 

3.2.2.300.7 lar£g»£ P.aaaailsaaiss • ~ None 

3.2.2. 300. a Suaar.a2r.a21 Ylsift i ], j.1;y. - Within Package Only. 

3.2.2.300.9 £ufl£iiafl££r.a£aa'U£a» ~ This subprogram is a Procedure. 

3.2.2.3 00 .10 tatsal EaL^iaalsLi* " 

the_pragma : in c.node.ref j — the pragma to be processed 

3.2.2.300.11 iiaS=£itaaiS- ~ None 
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3. 2. 2. 300,12 Ala2LiiHlE- " 

checK that the control lea pragma has only one argument; 
if 6RR0R> then 

invoke "0 i agno se. ms g w with the.pragma for error 14052; 

return? 
end ifj 

invoke "£XPS • exp" w i th argument; 
if ERR0R> then 

invoke "D i agnose. ms g" with the_pragma for error 14053; 

return; 
end i f ; 

check that argument is only an access type (not derived from one) declared in 
the 

same declarative part; 
i f ERRQR> then 

invoke M 0 i agno se* ms g" with the_pragma for error 14054; 
end ifj 



3. 2. 2. 3oo,i3 aiaaoflaiis Saiaaaas fisaanaisa* - 

SEVERITY 



14052 


£ 


pragma should have only one 


argument 


14053 


£ 


pragma argument invalid 




14054 


£ 


controlled argument must be 


an access 



3. 2. 2,300.14 iiaffiaiSS. 21 aita. Sir.U£iM£*S- - None 



3.2.2.301 lii^araaLaa* - list 



3.2.2.301.1 fL'j.r.aas.S. • - Perform name resolution upon tie list pragma for all 
targets. 
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3.2.2.301.2 4iSii2aii2.Ql» " None 



3*2.2.301.3 IialSISQialiaa Laaauaas* - This subprogram is written in Ada 



3.2.2. 301.4 Uassi • This subprogram is not used recursively. 



3.2.2.301.5 Ngsisd. Wilkin. - pragma ttr 
3. 2 .2.301.0 H22ii U££2G£l£I2£±£l« - None 
3.2.2.301.7 iiSaSHiaiiaiSS- - None 

3.2.2.301.3 Su2o.r22£3J2 Y j, 5 i„b i \ j,ty . - Within Package Only. 

3.2.2.301.9 £uQc.iiflQ^P£o.5e.olu,r»£» - This subprogram is a Procedure 

3.2.2.301.10 £2£2ai " 

the_pragma : in c.node.ref ; — the list pragma to be processed 

3.2.2.301.11 iia.s=£iie,£li. - None 

3.2.2.301.12 &i£0.£i£ha. - 

check fehat there is only one argument? 
if E RROR> then 

invoke "0 i agno se_ms g* with the.pragma for error H055> 

r e turn ; 
end if; 

check that this argument is spelled "on" or "off*; 
i f ERR0R> then 

invoke "Diagnose. msg" with the_pragma for error 14056; 
end if; 
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3.2.2.301.13 aid2QSiii£ ^£li22Sl fifiGfiLaifid* " 

SEVERITY 

14055 E pragma should have only one argument 

14056 E arguments to the list pragma should be on or off 



3.2.2.301.14 Piaaaias. at Saia Sit us. lues s« - None 



3.2.2.302 iuaaLaacaai* - Page 



3.2.2.302.1 LyxaaiS,* ~ Perform name resolution upon tie page pragma for all 
targets. 



3.2.2. 302.2 Asms atiailS* - None 



3.2.2.302.3 !mo I eqen ^a, t i on t» a.n qua, ge . - This subprogram is written in 4da. 



3.2.2.302.4 UiSl &££U L5.L YJ*.1j> *" This subprogram is not used recursively. 



3.2.2.302.5 Ne.2,i,sg. ~ prag_attr 



3.2.2.302.6 Ho.sJk Ssa&aiaO.S.iS.S.* — None 



3.2.2.302.7 laLaal Q,e.aaailS2.aiaS» ~ None 
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3 . 2.2. 30<i .a 



$>A&P.£22£12l IL&iaiLUx* ~ Within Package Only. 



3.2.2. 30<i. 9 



^UHSt » <?n/ Proqeflure . - This subprogram is a Procedure. 



3.2.2.302.10 



the.pr agroa 



in c.node.ref? 



the page pragma to be processed 



3.2.2.302.11 SJ.&e.-££f.e.£l£- - None 



3.2.2. 302.12 Aj,£0.£.ilJ!J2« - 

check that the. pragma has no arguments 
i f ERR0R> then 

invoke "Diagnose.msg" with the. pragma for error 14058; 
end if; 



3.2.2.302.13 aia.2Q0.s.i.ic. *e.saao,e£ fi£ES£ll5H- - 

SEVERITY 
£i2G£ GUiU£j.&*£ 15.11 

14053 E page pragma should have no arguments 



3.2.2.302.14 £sa22.iSi 21 Si£U£.£il£S.£« " None 



3.2.2.303 £y.2fl£22£2.2« - genera I .pragma 



3.2.2.303.1 £u£fl25£» " Performs name resolution upon the pragmas for al 
targets. 
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3.2.2.303.2 As.£a£aJLL2.riS« - None 



3 .2 .2. 303. 3 Il2ie.fQe.Q,ialii2Q k2.H2U.aas* ~ This subprogram is written in Ada 

3.2.2.303.4 lis.£<l £e.c.u.£..S.iY.S.i.Y.« *" This subprogram is not used recursively. 
3.2 .2. .303. 3 Jie.s.isa SliitLLD.* prag^attr 

3. 2 .2.303.0 HaSLi. Q£2.2,Q<2£ • - None 

3.2.2.303.7 Iar.ae.i, QepeHdenqie s, . - None 

3.2.2.303.8 SuipxaaLaffi yiSiailiiX« - Within Package Only. 

3.2.2.303.9 Furtc t t on £ Procedure . - This subprogram is a Procedure. 

3.2.2.303.10 Earjaai 2. amsalaLS • - 

the_pragma : in c_nod e_r e f ; — reference to pragma to be processed 
3.2.2.3 03.11 SJ.a£z£IIS£il« - None 

3.2.2.303.12 A!aa£iii221» - 

'check that pragma has only one argument; 
i f ERROR> then 

invoke H D i agnose. msg" with th e_pr agma for error 14059; 

return; 
end if; 

invoke "EXPS.exo" with argument; 
if ERR0R> then 

invoke "0 i agnose. ms g" with the_pragma for error 14060; 
end i f » 
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case PMG M A name> of 
PACK>: 

check that argument names a record or arry type out not a 

derived type? 

if £*ROR> then 

invoke "d i agnos e»msg" for error 14391; 

en d if; 
OTHERS> : null! 
end if; 



SEVERITY 

saas. £u*u£*s*£ i£*i 

14059; E pragma should only have one argument 

14060 £ pragma argument invalid 

14891 fc pack pragma must be given for a non-derived 

record or array only 



3.2.2.303.14 txaaaiss. ai fiaia I&u&iul&i* - None 



3.2.2.304 Sji2D.ro.ajr.aa* *" optimize 



3.2.2.304.1 £.££.0.22.1 • "* Performs name resolution upon the optimize pragma for 
a I I targets • 



3.2.2.304.2 Assy.i2fiii2QJl« ~ None 



3.2.2.304.3 l2aiSfflS.9.i.ati5CL LlQiauaaS* " This subprogram is written in Ada. 



3.2.2.304.4 il§.sfl B£S.l£3,ilS.iY.» ~ This subprogram is not used recursively. 
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i.2.2. 304.5 HsLIJL.2£i ~ o rag_a ttr 



3.2. 2.304. 6 Hail ££ii<LQd£n - None 



3.2.2. 304.7 laiaai D.Stt£0.il& n .£i£S« ~ None 



3.2.2.304.8 Su&ft£a2L3!2 iiS.il ill* ** Within Package Only. 



3 .2.2.304.9 £\AH£kL2Q.L£.LQ.£2.£\lL§>» ~ This suDorogram is a Procedure. 



3.2.2.304.10 Farm^X f.aLai2S,JLil£.S • ~ 

the.pragma s in c^node^r ef ; — the optimize pragma to be processed 



3.2.2. 304. 11 iiil£-£lis£H • - None 



3.2.2.304.12 ^lafl£iliia|. - 

check that here is only 1 argument! 
if E RR0R> then 

invoke "Oi agnose.msg" with the_pragma for error 14064; 

return? 
end i f $ 

check that argument is spelled either "time" or "space"; 
if SRR0R> then 

invoke "0 iagnose. usg" with the^pragma for error 14065; 
end if; 



3.2.2.304.13 Qiaaaasiia Hasiaiiis £en§.r.ai£a» - 

SEVERITY 
£S2£ eufc*£iSxE IEXI 

14064 E optimize pragma should have only one argument 

14065 E pragma argument invalid 
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3.2.2. 30*. 14 LiaaaiaS. 21 !2^iLa 1&£U£1U££I* - None 



3.2.2.305 S.iAaa£a2£aiB« - suppress 



3.2.2.305.1 PyiiiaSS* Perform name resolution upon tne suppress pragma for ai 
targets* 



3 •2.2.305.2 iS.2U2SQli2.GS* - None 

3.2.2.305.3 laalSaaQiaiiaa Uaaauaas* ~ This subprogram is written in 4da 

3.2.2. 305.4 Us.e.a; &££U£:£i.y.£j.Y.« ~ Tnis subprogram is not used recursively. 

3.2.2.305.5 tisaisa iiiQlQ.* - prag_attr 

3.2.2.305.6 Hail D.£a&ade.ac.j >ai# - None 

3 .2 .2. 305.7 Ia£aai, P.e.aejiale.acJJLS, • - None 

3.2.2.305.3 Iiiaa£o.££ > a.a Viiiaiiiiv. . - Within Package Only. 

3.2.2.305.9 EiiQ£liaQ£££&£e.3jA£S > « - This subprogram is a Procedure. 

3.2.2.305.10 Eataal. P.aLaBfiiaLi« - 

the_prag:na : in c.node.ref; — the suppress pragma to be processed 
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2 •2.3 05.11 iiaSz£il££lS« " Non« 



2.2. 3 05. 12 aiafiL iltime - 

ecK that first argument is only a "check^name" » 
ERR0R> then 

invoke "Oi agnose. msg M with the.pragma for error 14066J 
return » 
d if ; 

SECOND argument is present> 
en 

invoke "ExPS.exp 1 * with second argument; 
i f £RR0R> then 

invoke "0 i agno se. ms g M with the_pragma for error 14067; 

return; 

end if; 

check that nane is only an object or type name; 
.if £RR0R> then 

invoke "d iagnose.mg" with the^pragma for error 14895; 
end i f ; 
d if; 



2.2.305.13 aiaaQflsiis Sssaaass Osnaiaisd* - 



SEVERITY 
fiUJUaUltE ISZL 



14066 



E 



first argument to suppress pragma must be a check name 



14895 



second argument must be a type or object name 



14067 



£ 



second argument invalid 



2.2.305.14 fcxajjpj.e,s. 21 2312 Il£il£i.M£H« ~ None 



2.2.306 iy.b.o,r p.a£3,iH. - attribute 
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3.2.2.30b. 1 Zid.LQ.HS.* " Perform name resolution on and chec«s legality of 
attribute that has no parame ter s » for the VAX/VMS target* the VAX_SA target* 
K0L1 16023.SA target, and the R0LM1666_SA target. 



3 .2. 2 .306.2 As.s.i[Sai±2ai« " None 



3.2.2.306.3 Iial5SSaiiaiii2G Li,G2Ji2,£l • - This subprogram is written in Ada. 



3. 2.2.306. Ui^ii Sfic.y.r.iive.l^. - This subprogram is used recursively. 



3.2.2.306.5 Ngstsd w t thi,n . - pra<?_attr 



3.2.2.306.6 HflSi Q.SiQ.2.ate!lQ.i&l. - None 



3.2.2.306.7 IaXilSt Q5aS2^SQ£iS2« " Por all targets except the POP 11/70 Unix 



3.2.2.306. 6 S^aaLaacaa iiiiaiiiil* - Within Package Only. 



3.2.2.306.9 £uQ££i2a£££aaaiiiJULS« "* This subprogran is a Function with 
c.node^ref result type. 



3.2.2.306.10 t£ £.213.1 Pa.r.aS££.af.a» - 

attr : in c_node_ref; — the attribute to be processed 



3.2.2.306.11 Siaar£liaaii« - None 
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3.2.2.30b. 12 Alao.£j,£h!2. - 

invoKe "exps.exp" with a s„name of attr an 
names as context. 

if ERR0R> then mark attr as in error. 

return V0ID>; end if; 
case ATTR i d> of 

A00R£SS> : name must indicate an objector subprog only. 
8ASE> : name must indicate a type or subtype that 

is not a tasK. 
SIZE> : name must indicate a non task type or subtype 

or an object. 
IMAGE* value) : 

name must indicate a scalar type or subtype. 
FIRST, last> t 

name must indicate a scalar typ.e or subtype or 

an array tyoe or subtype constrained 
only) or an object of array type or subtype. 
POS , val» pr ed » succ> : 

name must indicate a discrete type or subtype. 
DELTA * actua l_de 1 1 a , b i ts> : 

name must indicate a fixed point type. 
LARGE * mach i n«_r ounds> : 

name must indicate a fixed or flp type. 
DIGIT, mantissa* emax * smalt* 

eps i I on * mach ine.radi x * mach i ne.man t i ssa* 

mach i ne.emax » mach i ne„.em in * machine_over f I ows> : 

name must indicate a floating point type or 

suotype only. 
LENGTH * range> : name must indicate an array 

type or subtype* or an object thereof* 

constrained" only. 
CONSTRAINED) : name must indicate a type with discriminants. 
POSITION, first. bit, I ast.b i t> : 

name must indicate a record component. 
STORAGE'S I Z E> : name must indicate an access tyoe. 
TERMINATED* priority* failure* s tor age_s i ze> s 

name must indicate a task object or type. 
C0UNT> : 

name must indicate an entry. 
8ASE> : 

name must be a type or subtype. 
0ISP> s name must indicate a (potential) parameter to a 

code statement; 
0THERS> : error? 
end case; 

if EAR0R> and PRAGMA_FL AG not set> then 

invoke "di agnose.msg w with attr for error 14006 

return VQI0>; 

else mark attr as error? 

return VQID>; 
end i f ; 

return attribute result type. 
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3.2.2.300.13 ^iaaaaiiia isssaas.* iasneiaiss:* - 

SEVERITY 

14006 E illegal attribute of this name. 



3.2.2.306.1^ fciaaaiisi ai fiaia l&iiiatutss- - None 



3.2.2.307 iiiatt£22L32!» * interface 



3.2.2. 307 • I 2ii£aaS£» - Perform name resolution upon tfte interface pragma for 
the VAX and ROlm targets. 



3.2.2.307.2 i££U2u£j.°.££« ~ None 



3.2.2.307.3 IialaiaaiaJLiaa kaa2Ua3£» ~ This subprogram is written in Ada. 



3.2.2.307.4 i2s,ea. SlfiVULiilftlJt* - This subprogram is not used recursively. 



3.2.2.307.5 Ne.s.£.ga. iiiiLajLa* "* prag_attr 



3.2.2.307.6 H2Si QtSaSQ^aQaiaS* - None 



3.2.2.307.7 laLaai Qaaaaa'aaaiai* - For all targets except the POP 11/70. 



3.2.2.307.8 Suaacaacaoi iiaiaiiiii* - Within Package Only. 
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3.2.2.307.9 SilQC.liao.^P.iac^ri^e.. - This sudorogram is a Procedure. 

3.2.2*307. 10 Foxsal ?_3.L2!2SlSLl • - 

the.pragma : in c.node.r e f ; — the interface pragma to be processed 

3.2.2.307.11 iiisz£tta£lS« ~ None 



3.2.2.307.12 Aj.a2LiI!i2!- - 

invoke "EXPS.exD" with second argument; 
if ERPQR> then 

invoke "0 i agnose .msg" with the.pragma for error 14062; 

return; 
end if; 

check that second argument is only a subprogram name; 
if ERR0R> then 

invoKe "a i agnose.msg" for error 14057; 
if ANY more arguments exist> 
then 

invoke "0 i agnose. msg" with the_pragma for error 14063; 
end i f ; 



3.2.2.307.13 " liia.ano.s.lis ££5,5.2.2 £5 <a£Q.£Lil.k£ £ • ~ 
SEVERITY 



14057 £ second argument must be a 

14061 w invalid language to be interfaced 

14062 E second interface argument invalid 

14063 E interface pragma should have only two arguments 



subprogram name 



3.2.2.307.14 iiaaaigs, of_ P.a£a 5 tr inures. . - None 
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3. 2 .2. 30c 2A2&itaa« ~ maint_n 



3.2.2.308.1 £a£aa£S« - Implement ma intenancs oot ions for name resolution 



3.2.2.308.2 filUflisr. 21 SilSl ££221.2211 • - 1 



3.. 2.2.308.3 fisasaaiasLiss, 22 Q£2S£ flaaisiisajL tar. iaaa* • cdm^types 



3 .2. 2 ,308.4 iadiiiaaal asasaasaaias lac &ad*« - 

get_as tput„.3s»get„sm»out -li sm»get_Jx »put„.l x»get.vs»put.vs » 
get^fttout^fttl ist.seqtar r ay_seq »cdm_st repack » dec I s» v i s tr ee 



3.2.2.308.3 Eaaisaaa iaaaitiaaliaa. - 

package maint_n is 

— visible outside package 

procedure trace ... 
end rtiaint^n; 



3.2.2.308.6 £iaaa£.3iifl2 £2a*a» - None 



3.2.2.308.7 £iaaale£ al SliaalUiaS* - None 



3.2.2. 309 SuaaLaanaa* ~ trace 



3.2.2.309.1 £»i£a2££» ~ Implement the trace maintenance option for context 
processi ng . 
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3.2.2.3 09.2 A,5 > 2.^2£ij < o.n5. - None 



3.2.2. 309.3 Imo 1 ementat i on L3H2.ua££ • - This subprogram is written in Ada 



3.2.2.309.4 !2s.£i SS.iilLSil2.lX* This subprogram is not used recursively 



3.2.2. 309.5 iJasAjga. diltlill* • maint.n 



3.2.2.309.6 Qaae.nd^e.ac.i.e.i. - None 



3.2.2.309.7 LlL22.£. Q£fi,£Qd3,D.£.i&.St« "* None 



3.2.2.309.8 Su£a.L22Laa V t s, i b i, I j ^y . - Outside Package, 



3.2.2.309.9 &UD.£ii2Q££L2£a£lyX£ • "* This subprogram is a Procedure. 



3.2.2.309.10 Eafjuaj. ZskL2.ZlSLiL2.Ll' " 

caller : in string (1..10); — the name of the calling routine 
cur rent.s trot : in c dm., types, c_node_r ef ; — the diana statement 
— currently being processed 



3.2.2.309.11 ii^s-£llac.i5« - None 



3.2.2.309.12 Aj.ao.iJ.ili2. " 

if IN correct current compilation unit source statement range) then 
while NOT at end of trace option I i st> loop 
case TRACE option> of 

A> : OUrtP vistree node indicated the variable 

"context. cur r en t_scooe w >; 
8> s DUMP whole vistree beginning at 

"v i s tr ee. v i s i b i I i ty_r oot "> J 
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C> : DUMP diana tree of vistree node indicated oy 

'•context • cut r.en t.scope"> i 
D> : DUHP entire diana tree of unit indicated by 

"context .cur r en t. scope ">; 
5> : DUflP entire Diana tree corresponding to the 

vistree beginning at "v i st r ee . v i s i b i I i t y.roo t"> ; 
F> i DUMP list indicated by variable 

"v i stree . i ncomp I et e. types. unr e dec I ared">; 
G> : DUMP list indicated by variable 

"vistree.deferred.constants.unrede Glared ">; 
H> : OUHP name of calling routine>; 
I> : DUMP current source statement number>; 
J> : DUMP vistree from nearest enclosing unit to 

current scope>J 
K> : DUMP Oiana from nearest enclosing unit to 

current scope>; 
L> : DUMP list indicated by variable 

" decls.priva te.ty pes.unr edec I ar ed"> ; 
N> : DUflP I i s t i ndi ca ted by variable 

M v « stree.aggr.poss.l i st">» 
N> : 0U«P variable "v i st r ee .access.cn t" and 

list "v is tree. access. I ist">» 
Q> : DUrtP diana tree of current source statements 
P> : DUMP list indicated by variable 

"dec is. label .s.unr edec la red">» 
0> : DUMP the variables listed below: 

"v i st r ee • scope. i nnermosVN 

"v i stree. b I ock.i nnermost « 

"vi stree. uni t.i nnermost">; 
R> : DUM° the variables listed below: 

"v i stree. cur rent. i d.s" » 
- "v i str ee • d i scr i mi nant.f I ag*N 

"vistree. gen eric. flag "» 

"v i s t r ee . pr i vate.f I ag" > 

"vi stree..param.M ag"> » 
end case? 

aavance position in trace option list; 
end loop; 
end i f ; 



3.2.2.309.13 iiaanaiiic. fle.s.saass £aaa£a£a4* - None 



3.2.2.309.14 esamaiaa at uaia lLr.uaiuf.as- - None 
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3.2.2.310 £i,c.iiaas.« " ovo.expr 



3.2.2.310.1 P.JiLaaS.S • ~ Perform overloading resolution on Oiana nodes which 
appear in expressions. 



3.2.2.310.2 NyjassL 9.1 SuaaiaaLaaLS* - 22 



3.2.2.310.3 Qa2SD.flsaaj.si afl Qlas£ PaaKaasi lac iaaa* - cdm.type 



3.2.2.310.4 AaSliiiaQ3i D ?oe,n<jt»nc i es f_SLL lia^Y.* ~ ovp_util» cdm_as» ovp.clas? 
static_exo* stats 



3.2.2.310.5 Paaiiaas iasaitiaatiaa- 

package OVP.EXPR is 

— see overview in package QVP^TRAV 

procedure 0V_USEQ_08ID ... 

procedure QV_IN0EXED • •• 

procedure QV_SLICE ... 

procedure QV_NUIL_ACC ... 

procedure GV_USED_CHAR ... 

procedure QV_NUM_IIT ... 

procedure 0V_ALL0C ATOP ... 

procedure DESELECTED ... 

procedure 0V_ATT*I 8UTE ... 

procedure QV_ATTR_CALL ... 

procedure QV_ALL ... 

procedure QV_STR_LXT ... 

procedure QV_AGG ... 

procedure 0V_8INARY ... 

procedure UV^MEMBE RSHP • 

procedure Q V_P A RENTHZO . 

procedure QV_C0NVE RS ... 

procedure UNQUALIFIED . 

procedure OV^FUNC.CALL . 
' procedure 0V_RaNGE ... 

procedure OV_DSCR_AGG •• 
procedure 0V_APPLY..-« 
end QVP.EXPR; 
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3. 2. 2.310.5 LUaaLaiiaa ift^a. - None 



3.2.2.310.7 £*aiaJLS£ fli !2aia £l£Ua£il££S. — None 
3.2.2.311 £y,2a£a2£a!B« ** ov^dscr^agg 



3.2.2. 311.1 f.u£aaS£» — Perform overloading resolution on a node of type 
* dscrmt_aggregate • • 



3.2.2.311.2 iiiiifflaiians* ~* None 

3.2.2.311.3 XaaisaaalaiiiiQ La0.iiaa3S» - This subprogram is written in Ada. 

3.2.2.311.4 liseji ESiUCSiiall* ■ *" This subprogram is not used recursively. 

3.2.2.311.5 Ne.s£sa HiJttlia* - ovp_ctxt 

3.2.2.311.6 aasi QsaaO.dSllS.iSl* - None 

3.2.2.311.7 Ia£S££ &Sasa4snaiS5 • - None 

3.2.2.311.8 Suaaiaama iiiliaiiily.* - Outside Package. 

3.2.2.311.9 £y.nc.^iaQ££r.a£S^ULS« *" This subprogram is a Procedure. 
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3.2.2. 311. iO ~ 

node J in cdm_type O e_node_rsf » — node to be resolved. 
3.2.2. 311. LI ^islSz£lXa£ll« * None 



3.2.2.311.12 Al < aa£i^h{]i« ~ 

if M A I NTE MANC E option B> then 

PRINT "enter"* cdm„.type. gat_node_ i d (node)* "node'S 
"node-"* node* 
pass = "* pass* 
" result.req = "» result_req> 

ena if; 

if MAINTENANCE option D> then 

PRINT candidate definition J i s t > 
end ifi 

for EACH element of as_Iist> loop 

if DISCRIMINANT name has appeared before> then 
ERROR 15000> 
end t f J 

OVERLOAD (expression in list e!ement>» TYPE of corresponding d i s c r i m • > ) ; 
en d i oop j 
if MAINTENANCE option 6> then 

PRINT "leave"* cdm.typ e. get.node.. i d (node)* "node"* 
" node * "* node* 
" resolved 3 "* resolved* 
" param_ava i ! = ", param.avai l> 

ena if; 



3.2.2.311.13 aiaSQ25Lii£ * £113.2 £.1 ££0.£L3ie<i» - 
SEVERITY 

15000' E Discriminant name appears twice 



3.2.2. 311. ia £x a nio.i S s. g± aaia s.i£uc,iy.r.e.s.. - 
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3.2.2.312 Su22£22£iiL:2« " ov_used_obi a 



3.2.2.312.1 £*l£jio.s * • - Per forn overloaaing resolution on a node of type 
* used.ab ject_ i ci ' • 



3.2.2.312.2 i££UtHi.ii2!L5« " None 

3.2.2.312.3 IlSfll£0!i*flidii2Il LlQaii32£« "* This subprogram is written in Ada 
3.2*2. 312.4 S££U£S±y.£i^« - This subprogram is not used recursively. 

3.2.2.312.5 Jiasisa. - ovp_expr 

3 .2.2. 312. 6 Hfi5i ££2£ail£0.£is,S.» - None 

3.2.2.312.7 Inast QSflaQilail£iS5» ~ None 

3.2.2.312.8 5u-b.Jl£22£a2i ViSi2iliJL2> - Outside Package. 

3.2.2.312.9 £u22li2Q£££2.££-lyL£.£« ~ This subprogram is a Procedure. 

3.2.2.312.10 £or_3jai PaLaa&isjLi* - 

node : in cdm_type.c_node_ref ; — • diana node to be resolved. 

pass in integer range 1.. 4; — pass of over I oad i ng a I gor i thm. 

result_req : in cdm_type. c_node_ref » — type of result required in 

context in wn i ch this node 
appears. 

param_.avai.l--: out cdm_type • c_node_r ef » — seq of types which may 

result after first pass. 
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resolved : out boolean; set to false if the exoress ion can't be 

resolved on the first t*o passes. 



3.2.2.312.11 iid.g-£tia£tl- ~ None 



3.2.2.312.12 Aiaflciihfn. - 

if MAINTENANCE option B> tnen 

PRINT "enter"* cdm_type.get.node.id (node) « "node"* 
" node = 'S node* 
" pass » '•» pas si 
" result. red 3 w » result. req> 

end if; 

if MAINTENANCE option 0> then 

PRINT candiaate definition list> 
end i f ; 

GET sm.expi.type from sm.def> 

iC SM. EXP. TYPE doesn't fit RESULT REQ> then 

RESOLVED := FALSE; 

if PASS > 2 then 
ERROR # 15001> 

end if; 

return; 
else 

PARAtt. AVAIL :* SN_EXP.rYPE> 
if MAINTENANCE option d> then 

PRINT "leave 11 -! cdm. type. get. node. i d (node)* "node"* 
" node « '% node* 
w resolved = "» resolved* 
'* par am. avai I * "* paratn.ava i I > 

end if; 



3.2.2.312.13 Qiasaflsjus. tlsiiaa«2 Saa«£at^. - 

SEVERITY 

15001 E Type of variable illegal for context 
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3.2.2.312.14 ixsLSalas. o.f j2aia LLf.uai.Uf.ai. " None 



3.2.2.313 Siifiia£a2£.aQ! • "* ov_.inde.xed 



3.2.2.313.1 £uLaa§.a» Perform overloading resolution on a node of type 
* i ndexed ' • 



3.2.2.313.2 iaiUfflaiiaJll* " Hone 



3.2.2.313.3 laalaiSUl^iiaD, LsaauaSS* ~ This subprogran is written in Ada. 



3.2.2.313.4 Uaaa SaaUf.-Li.iali> ~ This subprogram is used recursively. 



3.2.2.313.5 iiss.i^a Hiltiia* ** ovp_expr 



3.2.2.313.6 aaii Qsaaa-taaaiaa- - None 



3.2.2.313.7 laf-sal fiaaaaaaaaias* ~ None 



3.2.2. 313. d iaaaLaaLaa ^iaiailily.* - Outside Package. 



3.2.2.313.9 £aaai,iaa£P-£aaaaii£a • This subprogram is a Procedure. 

3.2.2.313.10 EaLissi p acaEalaLi • ~ 

node : in cdm_type. c_node_ref ; — diana node to oe resolved. 

pass : in integer range 1..4; — pass of overloading algorithm. 

result_req : in cdm_type • c.node.r e f » — type of result required in 

context in which this node 
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appears* 

param.avail : out cdm.type.c_node_ref ; — seq of types which may 

result after first pass* 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes* 



3,2.2. 313. 11 £i<2e.-£f_f,S£il» - None 



3.2.2.313.12 AlaatltHa. - 

if MAINTENANCE option 8> then 

PRINT "enter"} cdro.type.9et_n0de.id (node), "node". 
w noae = w » node. 
" pass - w » passi 
" result. req = w » result. req> 

end i f » 

if MAINTENANCE option 0> then 

PRINT candidate definition I i s t > 
end i f » 

— resolve array name 

if PASS * 1 or PASS * 3 then 

CL.NAME (AS.NAME>, PASS » ANY type>, INO.PARM, RESOLVED ) J 
else 

CL.NAME US. NAME>, PASS, SM_VALUE>, INO.P'ARM, RE SOLVED ) » 

if IINO.PARM! » 1 then 

FIND component type of array) 

if COMPONENT type doesn't match RESULT.REQUI R£D> then 
RESOLVED :* FALSE ; 
i f PASS » 4 then 

ERROR # 15002> 
end if; 

PARAM. AVAIL EMPTY>J 

return; 

end if; 

— save INO.PARM for next pass (use sm. value field) 
sm. value := IND.P ARM; 

sm.exp.type : = COMPONENT type>; 

— resolve index expressions 
for EACH index :> loop 

CL.EXP (ITH element of as.exp.s>, PASS, 

TYPE of i th index>, INO.PARM, RESOL VED> ; 
PARAM. AVAIL : = COMPONENT type >; 
else 

— array name not resolved 
RESOLVED := FALSE i 

« 
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if PASS .« 4 then 

ERKOR * 15003> 
end if; 

PARA^AVAIL := E*PTY>; 
end if> 

if MAINTENANCE option 8> then 

PRINT "leave"* cdm_type. get_node_i d (node) 9 "node"* 
M node * "» node* 

resolved » resolved* 
M oaram_avai I ■ % param.ava i I > 

end if; 



3,2.2.313.13 2«UaaasAi£ Jtesiaaas SsasLiisa- - 

SEVERITY 

15002 E Array component type does not match context 

reou i r ement s. 



15003 E Array type not resolvable. 



3.2.2.313.14 txagaias. at £iata l&U££lir.£2» - None 
3.2.2.314 Iiiaa£aaCl£Q« ~ ov_slice 



3.2.2.314.1 2.UL 0.0,5,5. . - Perform overloading resolution on 3 node of type 
* s I i ce * . 



3.2.2.314.2 ISSAlfflaJLianS* - None 



3.2.2.3M4.3 IiaiSaSQiilii-SQ LaXLauaSS* "* This subprogram is written in Ada. 
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3.2.2.314.4 iiili la.c.y.x.^ive.X^,. - This subprogram is used recursively. 

3.2.2.314.5 SiSULlSJl iililifl* ~ ovp.expr 

3.2.2.314.6 Hasi !2saaQ-£ n .SJL&lL» ~ None 

3.2.2.314.7 lanaat asaaadaaaias* - None 

i.2. 2. 314. 3 luaaLaSLaiS ii£ia.LLL£*» ~ Outside Package. 

3.2.2.314.9 Pu.naliaa^E.taSSa'aLS • - This subprogram is a Procedure. 

3.2.2.314.10 Eaoai P.ac.a2!£i£r.s« - 

node : in cdm_type. c_node_r ef J — diana node to be resolved. 

pass : in integer range 1..4J — pass of overloading algorithm. 

result_req ' in cdm_type • c.node.re f ; — type of result required in 

context in which this node 
appears. 

param_avai I i out cdm_t ype. c_node_ref J — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can*t be 

resolved on the first two passes. 



3.2.2.314.11 S.iaSz£ii&aH- ~ None 



3.2.2.314.12 ^iaaiiiaai* - 

if MAINTENANCE option B> then 

PRINT "enter'S cdm_type.get_node.id (node)* "node"* 
H node » % node* 
M pass = " » pass t 
" result_req = *% result_req> 
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ena if; 

if MAINTENANCE option D> tn<?n 

PRINT canaidate definition list> 
end if; 

—Resolve array name 
if PASS = 1 or PASS ■ 3 

.CL.NAM6 (AS_NAME>* PASS , AMY type>, SLC.PARM, RESOLVED); 
else 

CL.NAME (AS_NAME>> PASS* SM^VALUE>, SLC.PARM, RESOLVED ) J 
i f iSLC.P&Rrti = 1 then 

FIND component type of array) 

if COMPONENT type doesn't match RESULT.. RE QUI RED> then 
RESOLVED :» FALSE » 
if PASS * 4 then 

ERROR « 15004> 
end if; 

PARArt.AVAlL :* EMPTY>: 
return; 
end if) 

— Save SLC.PARM for next pass (Use sm_value field) 
sm_value := SLC.PARM; 

srn_exp_type :» COMPONENT type>; 
— • Resolve discrete range 

CL.OSCRT.RNG ( ASJ)SCRT_R ANG£> , PASS, ARRAY component type>, 

IND_PARM, RESOLVED ) i 
PARAM.AVAIL :» COMPONENT type>; 
else 

— array name not resolved 
RESOLVED :* FALSE* 

i f PASS * 4 then 

ERROR * 15005> 
end if; 

PARAM_AVAIL :* E:1PTY>; 
end i f i 

if MAINTENANCE option B> then 

PRINT "leave", cdm^type. get.node.. i d (node), "node", 
" node * " , node , 
" resolved * ", resolved, 
" param^avail * n , par ara_ava i I > 

end if; 



3.2.2,314.13 aiaaaasiis ilsssaaas fisaar-aissu - 

SEVERITY 

15004 E Array component type does not 

context requirements 

15005 E Array type not resolvable 
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3.2.2.3 14 .14 21 l$c.L)A<LVAL2.1° ~ None 



3.2.2.315 Siij2,a£.aaLiaJ» ~ ov_sel ected 



3.2.2.315.1 ?.y.r.aa£S« - Perforu overloading resolution on a node of type 
' se I ec ted * • 



3.2.2. 315.2 A£S > yj2&ii°.!12« - None 

3.2.2.315.3 laalaianiaiiao. LSLHauaaS • - This subprogram is written in Ada 

3.2.2.315.4 Ussil S£SLU£lilS,ll« This subprogram is used recursively. 

3.2.2.315.5 ^SllJd JiiiHin . - ovp.expr 

3.2.2.315.6 Mali Qsa«G^£fl£iSS,- - None 

3.2.2.315.7 iar.aai asasna*aQais5« - None 

3.2.2.315.8 laaaiaSLaa YiliallilX* - Outside Package. 

3.2.2.315.9 gunqt i on/P.rq ce.cju.r.e, . - This subprogram is a Procedure. 

3.2.2.315.10 £aoal £aLa 2J SiSLS. • ™ 

node : in cdm_type.c_node_ref J — diana node to be resolved. 

pass : in integer range 1..4; — pass of overloading algorithm. 

r esu I t_r eq : in cdm_type • c_node_ref J — type of result required in 

context in which this node 
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appears* 

param_avail : out cdm.type* c^node^ref i. — seq of types which may 

result after first pass. 

resolved s out boolean; — set to false if the expression can't be 

resolved on the first two passes* 



3 .2* 2. 315. 11 £i£s-£lf.e.c.Ls. - None 



3.2.2.315.12 A.!ag.r.j.£hm. - 

if MAINTENANCE option B> then 

PRINT "enter") cd(n_type. <?et_node„. i d (node)* "node*** 
node « M * node* 
" pass * ** » pass > 

result. req a n 9 result_req> 

end if; 

if MAINTENANCE option 0> then 

PftlNT cand i date def in i t i on list> 
end if; 

Resolve record or access variable name 
if PASS * 1 or PASS = 3 then 

CL_NAME{AS_NAME>, PASS, ANY type>, SEL_PARMt RESOLVED ) # 

else 

CL_NAM£(AS_NAME>, PASS* S*_VALUE>. SEL.PARMt RESOLVED ) i 

if 5SSL.PARMJ • 1 then 

FIND type of record being selected> 
FIND type of component named in as_des i gnator> 
if COMPONENT type doesn't match R£5ULT_REQ> then 
RESOLVEO := FALSE 
if PASS = 4 

then- ERROR 15006> 
end if; 

PARAM_AVAIL EMPTY> ; 
return ; 
end if; 

—Save SEL_PARM for next pass (Use sm_value field) 
sm.value :* SEL.PARM; 
sm_exp_type :» COMPONENT type>; 
PARAM.AVAIL : = COMPONENT tyoe>; 

else 

— - Record name not resolved 
RESOLVED := FALSE 
i f PASS * 4 then 

ERROR 15007> 
end if; 

PARAM_AVAlL := EMP TY> 
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end i f ; 

if MAINTENANCE option b> then 

P A I NT "leave'S cdm_type. get^node. i d (node)* "node% 
" node * "» node* 
" resolved = • resolve d» 
'* param.avait * % param.ava i I > 

end i f ; 



3* 2. 2, 315.13 aiaaQfliiii Jisiiaaas teaaLaisa- - 

SEVERITY 
£QJ2£ tLuU£*.U£ i£U 

1500o E Selected component type does not match context 

requirements* 

15007 E Selected component name not resolvable. 



3.2.2.315.14 ixaialftS, 21 lL£ii£iiI£S£« " None 



3.2.2.316 £y.aa£a2£a!a« - ov_aii 



3.2.2.316.1 P.yL£aaS.£« " Perform overloading resolution on a node of type • a I I * 



3.2.2.316.2 lllUSaiiSHS* - None 



3.2.2.316.3 io22l§!2£Q.£,iiLL20. La0.aU2aS« *" This subprogran is written in Ada. 



3.2.2.316.4 Us.e.0. SS.S.y,£.Siy.S.iJt« ~ This suborogram is used recursively. 



3.2.2.316.5 Ne.Sl.gd. jii^kin. - ovp_expr 
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3.2. 2.31&.6 tla^i 2S2S.Hll8IlS.ixl' *" None 



3.2.2.316.7 lataai SSfl£Q^lQ£i£l« *" None 



3. 2.2.31b. 8 S^fitaataiS Yiliaiiill* - Outside Package. 



3.2.2.316.9 £unc.ii2D.£££2SS.4U£a« ~ This subprogram is a Procedure. 

3.2.2.316.10 Esxaai ?. aLaaal&is • - 

node : in cdm - „type.c_node - ref i — • diana node to be resolved. 

pass : in integer range 1..4; «— pass of overloading algorithm. 

result_req ' in cdm_type .c_node_ref » — type of result required in 

context in which this node 
appears. 

param_avail : out cdm^type.c.node.ref ; — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if trie expression can't be 

resolved on the first two passes. 



3.2.2.316.11 ■ Sldatfiiiftfili- - None 



3.2.2.3 16 .12 AJLao.£i£hm. ~~ 



if MAINTENANCE option S> then 

PRINT "enter'** cdm.. type. get_node_ i d ( node ) ♦ "node"* 
*• node » % node* 
"pass * '% pass* 
*• result_req - result_req> 

end if; 

if MAINTENANCE option D> then 

PRINT canal date def in it i on list> 
end if; 

— Resolve access variable name 
if PASS = 1 or PASS - 3 then 

CL^NAME (AS_NAME>, PASS, ANY_TYPE>, ALL^PARM, RESOLVED); 
else 
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CL.NAME (A3S_name>. PASS » S M_VALUE>» ALL.PAR*, RESOLVED) i 
if iALL.PAkl! » 1 then 

— - Save ALL_PARrt for next pass 
sm_va J ue t - ALL_PA R.1 ; 

if ALL_PARf* isn't an access type> then 
RESOLVED s» FALSE; 
if PASS = 4 then 

ERROR 15008> 
end i f j 

PARAM_AVAIL : » Ef1PTY>; 
return; 
end if 

sm_exp_type :* TYPE accessed by ALL_PARM>; 
PARAN_AVAIL s» sro - .exp_type; 
else 

— Access variable not resolved 
RESOLVED := FALSE; 
i f PASS * A then 

tRROR 15009> 
end if; 

PARAM^AVAIL :« £KPTY>; 
end if; 

if MAINTENANCE option B> then 

PRINT "leave") cd;n_ type. get_node_ i d (node)* "node"* 
w node * w « node» 

resolved * ••• resolved* 
" pa r am_ava i I * % parain.ava i I > 

end i f ; 



3. 2. 2. 3i6,i3 Dj.aaao.aiia *asaaaaa £«aar.aiaa* - 

SEVERITY 

15008 £ Access type required 

15009 £ Selected component name not resolved 



3.2. 2. 316. 14 i^aaaias. at Oaia Iir.uaiur.aa* - None 



3.2.2.317 Su.i2.ar.aar.a2* *" ov_attribute 
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3.2.2. 317.1 £luL2.2S§, • "* Perform overloading resolution on a node of type 
* a 1 1 r i o u t e 1 . 



3.2.2. 317.2 *£SU2£iULfia£« ~ None 

3.2.2* 317, 3 Imo t ementat i on l ^ ng u ^ ge. - This subprogram is written in Ada 

3.2.2.317.4 Us.e<j[ Ssc.y,£Sj.vs,lx« -'This subprogram is used recursively. 

3.2.2.317.3 UlJUlLJl* - ovp_expr 

3.2.2.317.6 Mail QjSaaHi3S.IlS.iSS* "* None 

3.2.2.317.7 iaxaal aaaanaaaaias* - None 

3.2.2.317.3 Snaar.aar.ani iiSiailiiX* - Outside Package. 

3.2.2.317.9 Pyncfr j on/Pr.o ce.dgrs. - This subprogram is a Procedure. 

3.2.2.317.10 Earjaai EaLajnalar.! • - 

node : in cdm^type. c_node_ref » — diana node to be resolved. 

pass : in integer range — pass of overloading algorithm. 

result.req : in cdro... type • c_node.r ef ; — type of result required in 

context in which this node 
appears. 

param^avai I : out cdm_bas ics_.c - node - ref J — seq of types which nay 

result after first pass. 

resolved : out boolean; — set to false if the expression can't Oe 

resolved on the first two passes. 
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3.2.2.317.11 kiiSrSliSSLil* ~ None 



3. 2. 2. 317.12 Ai£fl£iihm. - 

if MAINTENANCE option 8> then 

PRINT "enter"* cdm_ type. get_node_ I d (node)* "node"* 
" node * "* node* 
" pass * "» pass* 
" result_req * "» result_req> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition list> 
end i f i 

if Srt_EXP_TYPE not already det ermi ned> then 
if AS. 10 is FIRST or LAST> then 
— Find type T of a s_name 

if AS.NAME is an attribute> then — must be BASE 

T :» as.name of attribute; 
elsif AS.NA16 is an object> then 

T TYPE of object>; 
end i f ; 

sm_exp_ty pe :* T; 
else 

sro^exo^ty pe • = TYPE corres* to as^id> — Table lookup 
end if; 
end if; 

if SM_EXP_TYPE matches R£SULT_REQUIRED> then 

PARAM_ AV AIL sm_exp_type; 
el se 

RESOLVED := FALSE; 
if PASS * 4 then 

ERROR 15010> 
end if; 
end i f ; 

if MAINTENANCE option B> then 

PRINT "leave"* cdm_ type. get_node_ i d (node)* "node"* 
" node * " * node* 
" resolved * "* resolved* 
" param_avail * ** * param.ava i I > 

end i f ; 



3.2.2.317.13 iiiaaaaiiic. ^sssaass £«a££aisd» - 

SEVERITY 

n^SaS^E I£XI 

15010 E Attribute type does not match context 

requirements 
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3.2.2.317.L4 tl^aaiSS. 21 £.313 il£ii£liil£i« ~ None 



3. 2. 2. 3 13 Iu£ii. r . 0 .2£.a2S« - ov_attr cal i 



3.2.2.318.1 2u.L22.Sfi* ** Perform overloading resolution on a node of 
• attr i &ute ca I I ' « 



3. 2.2* 313.2 A 4iy.21 2112113 • - None 

3.2.2.318.3 l2al£2£Qiaii5Q LanauaaS* ~ This subprogram is written in *da. 

3.2.2. 313.4 Uisl $.lQ.>ALlLllLz* ~ This subprogram is used recursively. 

3 .2.2.3 13. 5 t$e.s;LS2 Hii.DJ.a- ~ ovp_expr 

3.2.2. 313.6 fcj2Sl Q£2£Q£i£ n . c .i.£3.* - None 

3.2. 2 .318. 7 lataai QfiafiQde.rjjcJ.e.s.. " None 

3. 2.2. 318.3 5yL2aL22LaiS ¥i£iaililY.» - Outside Package. 

3.2.2.318.9 Fyn C.1122Z. £ £2S£2 , y£.fi • - This subprogram is a Procedure. 

3.2.2.313.10 £212131 EaLasstsLi* ~ 

node : in cdm^type. c_node_ref » — - diana node to be resolved. 

pass : in integer range 1..4; — pass of overloading algorithm. 

result_req : in cdm_type • c_.node_re f ; — • type of result required in 

context in which this node 
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3D063rS. 

param.avai I : out cdm_tyoe.c_node_r , ?f; — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't oe 

resolved on the first two passes* 



3. 2.2. 318.11 iio.s-£f.f.e.c.ii . - None 



i.2.2.318.12 Aiaaciihm. - 

if MAINTENANCE option b> then 

PRINT "enter"* cdm_type. get_node_id (node) « "node". 
" node * "» node, 
" pass * H » pass* 
" result_req * w , resu I t_r eq> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition I i s t > 
end if; 

— Find type T of as.name 

if AS_NAME is an attribute> then — must be BASE 

T :» AS.NAME of attributed 
elsif AS.NANE is an object> then 

T :» TYPE of object>5 
end i f ; 

COMPUTE type needed for as_exp> — Depends on attribute 

CL.EXP <AS_SXP>, PASS, NEEDED* ATTR_PARM, RESOLVED ) J 

—Compute P ARAM_ AVAIL 
if IrtAGE> then 

PARAM_A V A IL •*= STRING>; 
elsif P0S> then 

PARAM_ AVAIL : = INTEGER> i 
elsif VALUE, VAL, PRED, SUCO then 

PARAfl^AVAIL T>; 
else — inust be FIRST, LAST, LENGTH, RANGE 

COMPUTE value of index position J, — call static 
expr. eval. if index is a literal exp.> 

PARAM.AVAIL s » TYPE of Jth index of T> 
end if; 

if PARAtt_AVAIL does not match RESULT_REQ> then 
RESOLVED ;= false; 
i f PASS = 4 then 
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ERkQR 15011> 
end if; 
else 

sro.exp.type :* PAR Art. AVA ILJ 
end if; 

if MAINTENANCE option 8> then 

PRINT "leave"* cdm_ type. get_node_ i d (node)* "node's 
" node * " * node t 
* " resolved =» "» resolved* 
H oaram.ava i I » "» pararn.ava i I > 

end if; 



3.2.2. .3.16 • 13 QiaaQSaliS 2&2Sa2£S 5eQ£f.aJL5fl« - 
SEVERITY 

15011 E Type of attribute call does not match 

context requirements. 



3.2.2.313.14 £x. a2S ii£S, ai Qala ILL U££U£££- - None 



3.2.2.319 2.5itiP.£,22£a.2l» "* ov^nufn^l i t 



3.2.2.319.1 P,UJiaaS£« ~ Perform overloading resolution on a node of type 
• numer i c_l i ter a I * • 



3.2.2.319.2 As^ymq t. j„o u ns.« - None 



3.2.2.319.3 IlfllaniaaiaiLlaD. L3.Q..2y.aa£« - This subprogram is written in Ada. 



3.2.2.319.4 Ee.c.U£SjLieJ.£» - This subprogram is not used recursively. 
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3.2.2. 319,5 .sSilSii iiiiiiD.* ~ ovp.expr 



3.2.2.319.6 tla^i, iiSaS.IldafiS.iJLS. • - None 

3.2.2.319.7 Ia£S£l fisaaadansias- - None 

3.2.2.319.8 iuaataataa Visikilill* • Outside Package. 

3.2. 2.319.9 c -ur>qt; i or\/ P rq ced ur e, . - This suoprogram is a Procedure. 

3.2.2.319.10 £a£inai -sLZ.$2.§lLS.L! • ~ 
noae : in cdrn^type.c^node^ref 

pass i in integer range 1..A; — pass of overloading algorithm. 

result_req t in cdm_type. c_node_ref ; — type of result required in 

context in which this node 
appears. 

param_a va i I : out cdm_type.c_node_.ref J — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can»t be 

resolved on the first two passes. 



3.2.2.319.11 iiae.^£f.ie.at5. - None 



* 3.2.2.319.12 AiaaLUam- - 

jf MAINTENANCE option B> then 

PRINT "enter 1 ** cdm_type.get_node_.id ( node) * "node's 
M node = n s node* 
pass = % pass» 
" result_req = "> resu I t_r eq> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition I i st > 
end i f i 
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SET sffl.sxo.tyoe to un iver sa l_i nt e<?er or un i ve r sa I _r ea I » depending 
on syuhol r eo r esen ta t i on. > 

if Srt.EXP.TYPE mat ches . RESULT. REQ> then 
if R?=SULT_REQ » ANY_TYPE> then 
PARAtt.AVAlL :* sm_exp_ ty pe ; 
else 

P ARAM.AVAIL :* RESULT_REQ; — implicit type conversion 
end if; 
else 

RESOLVED :» FALSE; 
i f PASS * 4 then 

ERROR 15012> 
end i f ; 
end if; 

if MAINTENANCE option B> then 

PRINT "leave"* cdm.type. get.node. i d (node) » "node"? 
" node * node* 
* resolved » *V resolved* 
" oaram.avail * *•» param.ava i 1 > 

end if; 



3.2.2.319.13 aia2QO.s.ij.£ 2e.snaas fi^naiaisg:. - 



SEVERITY 



15 012 



E 



Type of numer i c 
context requirements. 



I i teral 



does 



not 



natch 



3.2.2.319.14 ii^i2£iS5. 



21 Sala IiLU£iU££S« - None 



3.2.2.320 Suk&£P.2f_am« 



- ov_used_char 



3.2 .2. 320.1 P.liL&o.S.e.. 
*used_char*. 



Perform overloading resolution on a node of 



typ e 
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3.2.2. 320.2 iiSU22li2 n .5« ~ None 



3. 2.2. 320. 3 laHlSSSQiaiiSQ L3.CLi2Uil££ • " This subprogram is written in Ada. 

3.2.2.320.4 USSfl S££.U£SilS.J.Y.« " This subprogram is not used recursively. 

3.2.2.320.5 Ne.s.£e,d, Wj.lj2j.il* "* ov.p_expr 

3.2.2.320.6 Hail QsaSf2^SBS.i£i.« - None 

3.2.2.320.7 laLaai Qsasn^aaiisi* - None 

3.2.2. 320.3 S,y.k££°.2£3!a ¥iS.i&JJ.i£X» - Outside Package. 

3.2.2.320.9 Fancti on /Procedure. - This subprogram is a Procedure. 

3.2.2.320.10 Eataal Pa.£a<2£Jk££S« ** 

node : in cdm -0 type.c_node - .ref ; — diana node to be resolved. 

pass : in integer range 1..4; pass of overloading algorithm. 

result_req : in cdm_type • c.node.re f ; — type of result required in 

context in which this node 
appears* 

parafB_avail : out cdm„t ype. c_node_ref » — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 
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i. 2.2. 3 20. LI .ia£-£lLs.-iS« - None 



3. 2 .2. 320. 12 AlattLiJUlfll* " 

if MAINTENANCE option 8> then 

PRINT w enter'% cdm_type.get_node.id (node)* "node"* 
" node = "* node* 
pass » "* pass* 
" result.req s "* resu I t_.r eq> 

end i f J 

if MAINTENANCE option 0> then 

PRINT candidate def inition I t s t > 
end if; 

REMOVE from the COL all definitions which don f t match R£SULT - .REQ> 
PARAM.AVAlL : = CDL>t 
if JCOL! » 1 then 

SET sm_exp - type> 
else 

RESOLVED := FALSE J 
i f PASS * 4 then 

ERROR 150 13> 
end if; 
end if; 

if MAINTENANCE option a> then 

PRINT "leave'S cdm_ type . get.node. i d (node)* "node"* 
•* node » "* node* 

" resolved * "* resolved* 

*• par ani.ava i I * "* param.ava i I > 

end if; 



3.2.2.320.13 aiaaaa.iic. aaisaEai - 

SEVERITY 

Q2fi£ .---£*£-£ I£XI 

15013 E Enumeration literal unresolvable or 

incorrect type 



3.2.2.320.14 £>ia3ialaS at &3£a S£LLl£iur.££- - None 
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3.2.2.321 2y.aata2r.2ill* ~ ov.nu I l.acc 



3.2.2.321.1 £,U£ao.S£. - Perform overloading resolution on a node of type 
'null .access 1 • 



3.2.2.321.2 A&SiiffifiJfciailS* ~ None 

3.2.2. 321.3 iiaiS12.Q.iaiii2a Laaauaaa* " This subprogram is written in Vda 

3.2.2. 321.4 liisa &aaar.£iY.§i.Y.« - This subprogram is not used recursively. 
3*2. 2. 321.5 Ne,s.i5g ki-LLaill* ~ ovp.expr 

3.2.2.321.6 HfiSl fisaaadStESLiaS.* ~ None 

3.2.2.321.7 lanaai, fiSaSHdS-HSiai * • None 

3.2.2.321.8 Suflttf.aaL2J2 V is i 0 i I t ty . - Outside Package. 

3.2.2.321.9 £ufl£iiaQil£LaS£i2ULa • *" This subprogram is a Procedure. 

3.2.2.321.10 £aL2^i £.JLL3.2iaiLSLS * " 

node : in cdm.type.c_node.ref; — diana node to be resolved. 

pass ' in integer range 1..4; — pass of overloading algorithm. 

result. req ' in cdm. type. c. node. ref » — type of result required in 

context in which this node 
appears • 

param. avail £ out cdm. type. c.node.ref ; — seq of types which may 

result after first pass. 
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resolved t out boolean; — set to false if 

resolved on the 



the expression can 
first two passes* 



t abe 



3.2.2.321.11 £iiie.-£.Lia.cJLS» "* None 



3.2.2.321.12 ila2Lii.£l2!« ~ 

if MAINTENANCE option 8> then 

PRINT "enter"* c dm. type* get^node. i d (node)* "node"* 
n node - M * node* 
" pass « w » pass* 
" result.req « "* result_req> 

end if; 

if MAINTENANCE option Q> then 

PRINT candidate definition list> 
end if; 

if PESULT_REQ ■ '•any.type" then 
i f i COL i » 1 then 

sm_exp_type :=* C0L>> 
else 

RESOLVED :» FALSE ; 
i f PASS = 4 then 

ERROR 15014> 
end if; 
end if; 
el se 

if RESULT_R£Q is an access type> then 

PARAM.AVAIL RESULT.REO; 

sm_exD_type :» PARAM_AVAIL; 
else 

RESOLVED :■« FALSE ; 
PARAM.AVAIL :» EMPTY>; 
end if; 
end i f ; 

if MAINTENANCE option B> then 

PRINT ••leave'** cdm_ type. get_node_ i d < node ) » "node"* 
n node « "* node*" 
* resolved * w * resolved* 
" par am_ava i I = **, param_ava i I > 

end if; 
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3.2. 2. 3 2 1.13 2122 noetic. »£isaaS5 SfiQ££2iffli- - 
• SEVERITY 

15014 E 'Null* not resolvaoie to a unique access 

type 



i. 2. 2. 32i.i4 fciaaaias. ai aaia SIlhiSlIilsls.' - None 



3.2.2.322 £ii,&P.£o.ar.a21« - ov_str_lit 



3.2.2.322.1 2.ii£££aL£» ~ Perform overloading resolution on a node of tyoe 
"str i n g — I i ter a I • • 



3.2.2. 322.2 liSUffl&.LLSLE.S* ~ None 



3.2.2.322.3 l2S2l51£Qiaiian LaiL2U&££« *" This subprogram is written in Ada 



3.2.2. 322 • 4 [I2.2.& SSS.ULSiy.S.i^* ~ This subprogram is not used recursively. 



3.2.2. 322.5 Nested. HiitliD. • * ovp^expr 



3.2.2.322.6 Hail Q £££ Q £t§,I2£.ie j£, • - None 



3.2.2.322.7 "L±L2.Zl Qsa^^SHS-ie,! • - None 
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3.2.2.322.3 SiiicCiSLiQ! ILlL'&.LlLtx* ~ Outside Package. 



3*2.2.322.9 £ua£ii2a£F.L2.£i.£y.£2.« ~ This subprogram is a Procedure* 



3.2.2.322.10 FoxajaJ. ZaL2.3lS.L2.Ll* - 

node s in cdm -> type.c_node_ref ; — diana node to be resolved. 

pass : in integer range — - oass of overloading algorithm. 

result_req : in cdm_t ype • c.node.re f » — type of result required in 

context in which this node 
appears. 

param.avai I : out cdro.type. c^node.r ef » — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression canH be 

resolved on the first two passes. 



3.2.2. 322.11 lisl£-£| > f > e.£is.. - None 



3.2.2.322.12 Ax^aciiija. - 

if MAINTENANCE option 8> then 

PRINT "enter", cdm.type. get_node_i d { node) » "node". 
M node = ** > node. 
" pass ■ pass* 
" result. req * % result_req> 

end if; 

if MAINTENANCE option D> then 

PRINT canaidate definition list> 
end if;- 

if RESULT.REQ is not M any_type"> then 

if RESULT.REO is not an array of enumer a t i ons> then 
RESOLVED := FALSE; 
i f PASS = 4 then 

ERROR 15015> 
end if; 
return i 
ena if; 

else — — "any^type" 

if LX_SYHREP has characters from array component type> then 
sm_exp_type := RES ULT_REO ; 
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PARAM.AV4IL := RESUlT_«?EQ; 
else 

RESOLVED :» FALSE; 
if PASS =» 4 then 

ERROR 15015> 
end if; 
end if; 
else — w any_type H 

PARAM.AVAIL :*■ EMPTY> 

for EACH element of CDL> loop 

if LIST element is not an array of enumer a t i ons> then 

REMOVE from I ist> 
end i f » 

if LX symrep has characters only from array component 
type> then 
APPEND this type to P ARAM_AVAIL.> 
end i f ; 
end loop; 

if JPARAM. AVAIL! /=» 1 then 

RESOLVED := FALSE i 

i f PASS * A then 
ERROR 15016> 

end i f ; 
else 

sm«exp_type PARAM.AVAILJ 
end i f ; 
end i f ; 

if MAINTENANCE option 6> then 

PRINT "leave"* cdm_typ e. get^node.. i d (node)t "node"* 
w node * '*» node* 
n resolved = n , resolved* 
** param_avail * % param_ava i I > 

end if; 



3.2.2.322.13 aiaaQaiiis asssaasi Saasiais^ 



SEVERITY 
£QQ£ tUiUaUiUE IEXI 

15015 E String literal 

tyoe requirements 



does 



not 



ma t ch 



con tex t 



15016 
15016 



Str i ng I i teral 

type requirements 



does 



not 



match 



con tex t 



String literal not resolvable 
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3.2.2.322.14 tiaiEaiSS. 2't Bala 2£r.USlUf.2S« - None 



3.2.2.323 SiiaaiaSLSIS' - ov_aggregate 



3.2.2.323.1 £ii£afliS. - Perform overloading resolution on a node of type 
'aggregate*. 



3. 2 .2. 323.2 ASSyaaiiaUS* None 

3.2.2.323.3 I&alSlSO.iaiA.aQ LaaSliaaa* " This subprogram is written in 4da 

3.2.2.323.4 Us.e.0. Ee.tar.sJLy.eJ. v.. ~ This subprogram is used recursively, 
3.2.2. 323. 5 Ne.SX.ga iiltlia* *" ovp_expr 

3.2.2.323.6 Hfi-Si. Qepe.ncfenc, ) es . - None 
3.2.2.323. 7 larc^e^ QSJaaalSCLaiSS* ~ None 

3.2.2.323.8 £u£E.£.22L2!2 V ? si b i I i ty . - Outside Package. 

3.2.2.323.9 &u£ c.iiaa£PX3.£SilyXS. • " This subprogram is a Procedure. 

3.2.2.323.10 Fo£2»§X P-3Lai2Si££S • " 

node : in cdm_type. c„node_re f ; — diana node to be resolved. 

pass : in integer range 1..4; — pass of overloading algorithm. 

result_rea : in cdm_type« c_node..ref ; — type of result required in 

context in which this node 
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appears* 

par 3in_ava i I : out cdm_t ype. c.node.r ef » — seq of types which may 

result after first pass* 

resolved : out boolean; — set to false if the expression can*t be 

resolved on the first two passes* 



3.2.2.3 23.11 Sida-i f.f.e.££s.. - None 



3.2.2.323.12 A iflflLlttLffl. - 

if MAINTENANCE option B> then 

PRINT "enter". cdm..type.get_node_ i d (node), "node". 
" node = "* node. 
" pass = "• passt 
" result.req = "• result_req> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition I t s t > 
end i f » 

REMOVE from the COL all definitions which don»t match RESULT_RSQ> 
i f COL! « 0 tnen 

RESOLVED := FALSE » 

if PASS » 4 then 
ERROR 15017> 

end if; 

return; 
end if; 

if !COL! * 1 then 

only one possible tyoe for aggregate 
SM. EXP. TYPE CDL>; 
if ARRAY aggregate> then 
for EACH component) loop 

if THERE is a choice expression> then 
CL.EXP <CHOICE_EXPR£SSION>, PASS, TYPE of index 

CHOICE_PARM, RESOLVED); 

end i f ; 

CL. EXP (COMPONENET.EXPRESSION)* PASS. TYPE of index), 
COMP.PARM, RESOLVED); 
> end loop; 

PARAM_AVAlL :« sm_exp_type; 

else 

— record aggregate 

for EACH component> loop 

if DISCRIMINANT or fixed component> then 

CL.EXP (COMPONEN£NT>, PASS, TYPE of record component), 
AGG.PARM, RESOLVED); 

else 
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CL.EXP (COMPQNENT>t PISS, "any type"* 
AGG.PARM, RESOLVED); 
end if; 
end loop; 

if TYPE of non-fixed components do not match any variant> then 

RESOLVED :* FALSE) 

PARAM.AVAIL NULL> J 
else 

PARAM.AVAIL :* sm.exp.type; 
end if; 
end if; 
e I se 

— more than one possiole resolution 
RESOLVED :» FALSE; 

if PASS * 4 then 

ERROR 15018> 

return 
end if; 

— ■ try to res love components 
COMPONENT. LIST :» £*PTY>; 
for EACH component> loop 

— resolve choice (might be an array aggregate) 
if CHOICE present) then 

CL. EXP (CHOIC£.EXPR>, PASS, ANY.TYPE>, 
CHOICE.PARM, RESOLVED); 

end if» 

— resolve component expression 

CL.EXP (COMPON£NET.EXPR>, PASS, ANY type>, 

COMPONENT. PARM, RESOLVED ) » 
APPENO COMPONENT.? ARM to COMPQNENT.LI ST> , 
end loop; 

— See which aggregate definitions are still possible* 
PARAM.AVAIL EMP TY> i 

for EACH composite type on the CDL> ioop 

if COMPONENT. LI ST matches components of composite type> then 

APPENO composite type to P ARAM.AVA IL> 
end if; 
ena loop; 
end if; 

if MAINTENANCE option B> then 

PRINT "leave"* cdm. type. get. node. i d (node), "node", 
node * node, 
" resolved***, resolved,. . 

param. avail * H , param.avail> 
end i f r - 
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3.2.2.323.13 2i22Q2ili£ ^£1I2.<1«1 SsaSlSild* - 

SEVERITY 



15017 
15018 



Aggregate type 
type requirements. 



does not match context 



Aggregate not resolvable. 



3.2.2.323.14 ixaiftlas. a! Uaia Sity.aiur.aa- - None 



3.2.2.324 £u&.£La2£.a!B« " ov_oinary 



3.2.2.324.1 £ir.aai£« • Perform overloading resolution on a node of typ 
• b i nar y ' • 



3.2 . 2.324.2 ^ilUEfiiiaH^ • ~ ^lone 



3.2.2.324.3 lasaiaaailiaiiaQ. LlEau,aaa» ~ This subprogram is written in Ada 



3.2.2.324.4 iiaaa Eaaair-5.iy.aiy.* ~" This subprogram is not used recursively, 



3.2.2.3 24 .5 Siailaa SiiikiQ • - ovp_expr 



3.2.2.324.6 Haal o.aaao.a'aaaiaa* ~ None 



3.2.2.324.7 T.axaai Sacaa3a n .aia.S • " None 
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i.2.2.3?4.a SiHfiLflfltaQl iiSikiiilX* "" Outside Package. 

3. 2.2. 324. 9 £uQ£li2a££LSL2§4!i££» " Tnis subprogram is a Procedure. 

3.2.2.324.10 Faojai Paxajsalsis- - 

node : in cd.n^type. c^node.ref ; — diana node to be resolved. 

pass 5 in integer range 1..4; — pass of overloading algorithm. 

result_rea : in c dm_type • c„l node_r ef ; — tyoe of result required in 

context in which this node 
appear s. 

param_avai I s out cdm_type.c„node -li ref ; — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 



3.2.2.3 24.11 HflS=£ilS£il» ~ None 



3.2.2.324.12 Aiaaiiihm.. - 

if MAINTENANCE option 8> then 

PRINT 'Venter"* cdm.type. get.node.. i d (node)* "node"* 
" node * " * node* 
" pass * " * pass* 
" result^req 38 "» result_req> 

end if; 

if MAINTENANCE option D> then 

PRINT candidate definition list> 
end if; 

CL_€XP <AS_EXP1>, PASS * "BOOLEAN", DU*MY_PARM, RESOLVED ) } 

CL_EXP (AS_EXP2>» PASS, "800LEAN", DUMMY_PARM* RESOLVED ) } 

PARA«_AVAIL "BOOLEAN"; 

if ilAl NTENANCE option 8> then 

PRINT "leave", cdm_ typ e. get_node_ i d (node)* "node", 

" node ="» node* 

" resolved 38 '•■»■ resolved, 

" par am^ava i I = M * param_ava i I > 

ena if; 
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3.2.2. 32<*. 13 iisaaaiiiff. aasaaass S^astaisd* -None 



3.2.2. 324,14 tiSLaal£5. 2t Q.si&.2L i££U£.lU£££« -~ None 



3.2.2.325 Sii|2a,£o.£La2i« - ov^roember shp 



3.2.2.325.1 E,U£E.2S.2,« - Perform overloading resolution on a node of type 
• member sh i p * • 



3. 2. 2.325.2 iiSUiUfliiaQl* ~ None 



3.2.2. 325.3 l22i.saSHisi.LL2D. Lang ua ge . - This subprogram is written in Ada 



3.2.2.325.4 Us.e.fl' E£c.u£SJL,y.eJLy.. ~ This subprogram is usad recursively, 



3.2.2.325.5 Ne.s.£e.d. Hiitiia* *" ovp^expr 



3.2.2.325.6 HflSl QSfiSIldSIl£iSS» None 



3.2.2.325.7 Iii££e. £ Qej2e.n£e.nc.j.e.s.. - None 



3.2.2.325.8 Sy,2££22£aa! Y Is ift, 1 !■ ItY • *" Outside Package. 



3.2.2.325.9 £uiQiIii2Qil££2j£SlU£S» ~ This subprogram is a Procedure, 
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3.2.2.325. LO FfiLiSai 2,aX£2£l£f.£ • ~ 

node : in cdm_type • c_.node._ref J — diana node to be resolved. 

pass i in integer ranqe 1..4; ■— pass of overloading algorithm. 

result^req : in cdm^type • c_node..re f ; — type of result required in 

context in which this node 
appears. 

par am.ava i I : out cdm_t yp e. c_node_ref » — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 



3.2.2.325.11 iii£=£ita£li. ~ None 



3.2.2. 325.12 A.iao.£i£i2!n« - 

if MAINTENANCE option 9> then 

PRINT "enter"* cdm_type.get_node._id ( node ) , "node", 
" node = ", node, 
" pass * "» pass, 
w result_req * ", result_req> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition list> 
end if; 

if PASS » 1 or PASS » 3 then 

CL_TYPE_RNG < AS.TYPE.R ANGE> , PASS* ANY type>, RNG.PARM, RESOLVED) ; 
CL.EXP (as.exp, PASS, ANY type>, EXP_PARM, RESOLVED ) ; 
REMOVE fron EXP.PARM, everything which isn't in RMG.PARM 

else 

CL.TYPE.RNG ( AS.TYPE.R ANGE> , PASS* SM_EXP_TYP E>, RNG.PARM, RESOLVED) 
CL. EXP US_EXP>, PASS, EXP.PARM, RESOLVED ) » 
end if; 

SET sm_exp_tyDe to "boolean"> 

if not (iEXP.PARMi » 1 and EXP PARM = RNG PARM) then 
RESOLVED := FALSE # 
if PASS * 1 or PASS = 3 then 

SET sm_exp_type to EXP_PARM> — will be reset later 
el si f PASS = A then 

ERROR 15019> 
end if} 
end if; 

PARAM_AVAIL : = "BOOLEAN" 
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if *U[NTfc\'ANC= option b> then 

PRINT "Isave'S cdm..type« qet_nod3_ i d ( node) f '•node's 
" node = node* 
" resolved * *N resolved* 
" o^ram.avail = param_avatl> 

end i f J 



3.2.2.325.13 aiaanaiiic. aaiiaa^s. fisn^r-aiaa- - 

SEVSkITY 
£1U2£ N***£xLiE I£XI 

15019 E Unresolvaole membership operator 



3.2.2.325.14 Nasals* Q± Qa£a 5.JL£.U£lUf.«l* - None 



3.2.2.32b S.ii2il£.o.2£il!n« ~ ov_parenthzd 



3.2.2.326.1 £m£2°.£2« ~ Perforn overloading resolution on a node of type 
•parenthesized*. 



3.2.2.326.2 As.iuiBfii,J.2I15« ~ None 



3.2.2.326.3 Isaj.Slsa.DjLati-SQ LlQ.£iiaS£« ~ This subprogram is written in Ada 



3.2.2.326.4 Uifid. i£e.£HLSiY.§J.j<> - This subprogram is used recursively. 



3.2.2.326.5 Nasi^a &ii,hin. - ovp_expr 
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3.2.2. 326.0 H2S£ Q£U£Qj£s»G_iJU£« None 

3.2.2.325.7 I.£.,.. fi£££D.-£SSc i£S • * None 

3.2.2.326.8 S..2a£22£32l V fslfr I I i^V, « - Outside Package. 

3.2.2. 326.9 EuncJ^ip.Q££r ojjejiyxe.. - This subprogram is a Procedure. 
3.2.2.326* 10 £2£23iil £,££32 &£,£££ • ~ 

node * in cdm.type.c.node.ref ; — diana node to be resolved- 
pass : in integer range 1..4J — pass of overloading algorithm. 

result. req : in cdm.type .c.node.ref ; type of result required in 

context. in which this node 
appears. 

param.avai I : out cdm.type.c.node.ref; — > seq of types which may 

result after first pass. 

resolved 5 out boolean; — set to false if the expression can't be 

resolved on the first. two passes. 

3.2.2.326.11 SJ.2..£X.f.e.c._._. ~ None 

3.2.2.3 26.12 AiS2£±iJ2!2« - 

if MAINTENANCE option 8> then 

PRINT "enter** cdm_type.get_node.id (node), "node", 
node = w » node* 
" pass = *• » pass* 
H result. req = '* ♦ result. req> 

end if; 

if MAINTENANCE option D> then 

PRINT candidate definition I i st> 
end if; 

CL.EXP (AS_EXP>, PASS, RESULT.REQ* PARAK.AVAIL, RESOLVEO); 
i f } PARAM.AVA IL 1 = 1 then 

SET sm.exp.type to PARAtf_AVAIL> 
end if; 
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if MAlMTtNANCS option B> tnen 

PRINT "leave"* cd.n_type. 9et_node_ i d (node)* "node"* 
" node « " * node* 
'* resolved * w * resolved* 
" param.avail 31 M » param.avai l> 

end if; 



3,2.2. 32b. 13 ajUaQflstis. Harass* Ssnsiai^* - ^one 



3.2.2.326.14 ti^ffialSi 2L SUia Si£U£iii£SS* - None 



3.2.2.327 Sy.liD.ro.2Li2>. - ov.convers 



3.2.2.327.1 P»i£ao.5g. - Perform overloading resolution on a node of type 
' convers ion*. 



3.2.2.327.2 As.£U!E&.iii°.!1.5« - None 



3. 2.2. 327.3 laaiSaSLQialiSO. LaD.5iia2S« - This subprogram is written in Ada 



3.2.2.327.4 UiSji Re.£.yx5J.y.£j.Y.» - This subprogram is used recursively. 



3.2.2. 327.5 ^asJLSal iii£J2JL£* ~ ovp_expr 



3.2.2.327.6 HfiSi QSP.SQ.llS.D.Si.e.s.* - None 



3.2.2.327.7 Iaf.££.£ QsaSQ<lej2c.i£.s. • - None 
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i.2.2.327.S iy^fiLSLSLiiE y.i£±2.i.lii.Y.« ** Outside Package. 



3.2.2.327.9 fLun££i2Q£££2£S&ur.£.« - This subprogram is a Procedure. 

3.2.2.327.10 Eacaal Par.a«»s££r.s* - 

node : in cdm - ,type.c - node - .ref i — diana node to be resolved. 

pass * in integer range 1..4; — pass of overloading algorithm* 

result.req : in cdm_t ype • c.node.re f J — type of result required in 

context in which this node 
appears. 

param.avai I : out cdtn_t ype. c_node_ref » seq of types which may 

result after first oass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 

3.2.2.327.11 £j.a.e,:£if.e.cj t< s.. - None 

3.2.2.327.12 AJ.asr.iihm. - 

if MAINTENANCE option B> then 

PRINT "enter'S cdm^ type, get, node, i d (node) » '•node*** 
node * "i node* 
" pass * H » pass, 
" result_req s % result_req> 

end i f » 

if M Al NTt NANCE option 0> then 

PRINT candidate definition I i st> 
end if; 

if PASS - 1 or PASS 3 3 then 

QV.EXPR (AS_EXP>, PASS, ANY type>, CON.PARM, RESOLVED ) i 

SET sm_exp_type to C0N_PARf1> 
else ' 

0V_EXPR <AS_EXP>, PASS, SM.EXP_.TYP E> , CON.PARM, RESOLVED ) > 

SET sm.exp.tyoe to C0N_PARM> 
i f J C0N_PAR»i /= l then 

RESOL VED := FALSE » 

if PASS =« 4 then 
ERROR 15020> 

end if; 
end i f i 
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if MAINTENANCE option S> then 

°RINT "leave'S cdm.type.get.node^i d (node) « "node"* 
'* node * 'S node* 
" resolved 38 "r resolved* 
** par am_a vail = '* « param_ava i I > 

end if j 



3.2.2.327.13 aiaaQ2Sti£ 2SS£&2S.S 5SHS£3i£fl* - 

SEVERITY 

15020 £ Unresolvaole expression. 



3.2.2.327.14 ixaaaiSS. 2i iiaia Hf-U£lUf.aS* - None 



3.2.2.328 5,tib,2.f.Q.2r.22!« - ov_qualified 



3.2.2.328.1 EuLfiaSSL* "* Perform overloading resolution on a node of type 
• qua-l i f i ed • • 



3.2.2.328.2 AS.lUffiE.liaLD.S* ~ None 



3.2.2.328.3 Ia2lS.IDS,Qiaiii2Q L20.SUiiSS« "* This subprogram is written in Ada. 



3.2.2.328.4 !!$.£(! &£cji£sj.v - This subprogram is used recursively. 



'3.2.2.328.5 Ussl-SSl Miiilia* ~ ovp_expr 
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3.2.2.323.0 tliil iSaS.Qil£riSLiaS.« None 

3.2.2.323.7 liLSSi UsaSO.^£Q£i£S« ~ None 

3.2.2. 328. 8 SiiSPXaSXaiD Visiaiiii* • - Outside Package. 

3.2.2.328*9 £uQfifc jgr^ Pf.o ceflyr e. . - This suoprograro is a Procedure. 

3.2.2.32a. 10 £.2Li2al Pacame t er s . - 

node : in cdm - ,type.c - node - ref ; — diana node to be resolved. 

pass s in integer range — pass- of overloading algorithm. 

result^req : in cdm.type .c_node_re f ; — type of result required in 

context in which tnis node 
appears. 

param_ava»l : out cdm.type.c.node^ref ; — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 

3.2.2.328.11 iid.£ = £f.f gati. - None 

3.2.2.328.12 AJ.30.rJ.lh a. - 

if MAINTENANCE option B> then 

PRINT w enter"» cdnj_ t ype • get_node_ i d (node)* "node". 
n node = % node. 

pass = *% pass. 
» result,.req = "i result.req> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate def in i t i on' 1 i st> 
end if; 

i f PASS = 1 then 

SET sro_dxp_type to type of as.name> 
end if; 
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CL.SXP (AS - 5X' 9 >, PASS* SM_EXP_TYPE>» 0UAL.P4R? 4 * RESOLVED) J 
if PASS * 4 then 

if QUAl.PARM /» sm_exp_t ype then 
ERROR 15021> 

end if; 
end ifj 

if MAINTENANCE option 3> then 

PRINT "leave'S cdm.type.get^node.i d (node)* "node H » 
" node « node* 
" resolved » % resolved* 
" oaram.avail * n » param_avail> 

end i f > 



3. 2.2. 323,i3 aisiaQfliiia Sassaass. £sQ«£aisa« - 

SEVERITY 

15021 E .Un reso I vabl e expression. 



3. 2. 2. 328. 14 SxasaiSS. fli £L3 iU 5iLii£lU££i • ~ None 



3.2.2.329 SnJlD.na2i.ajB. - ov_f unc_cal I 



3.2.2.329.1 Py.£2&S£« ~ Perform overloading resolution on a node of type 
* f unct i on_cal I * • This procedure will also be used for nodes of type 
• procedure_ca II'. 



3.2.2.329.2 A£lUffi2ii2I15« " This procedure will be invoked for as many passes as 
are necessary to resolve the function reference or to detect an error. RESOLVED 
has been set to TRUE. 



3.2.2.329.3 IU2l3ESLQ.ia.ii2Q L2.a2U2.aS> *" This subprogram is written in Ada. 
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3.2.2.329.4 -&£.U£-iY.iLLY.« " T his subprogram is used recursively. 

3.2.2.329.5 JiSitSSi _i._-ia« " ovp_expr 

3.2.2.329.6 Ho.S_. • None 

3.2. 2.329. 7 Qgg^,9d?n,c jes . - None 

3.2.2.329.8 2,y.b.£r.aaf.a!a £i-ia±iii* • " Outside Package. 

3.2.2. 329.9 Eun_i_2 n .2L£L2J£__Uf.£ • ~ This subprogram i s a Procedure. 

3.2.2.329.10 Eataai £ac£j9-.-.*£2« - 

node : in cdm_type.c_node_.ref;'— diana node to pe resolved. 

•pass : in integer range 1..4J — pass of overloading algorithm. 

result_req : in cdm_type«c_node_ref 5 — type of result required in 

context in which this node 
appears. 

param.ava i I : out cdm_type.c_node_r ef » — seq of types whi ch may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 

3.2.2.329.11 ___._____.__£_. - None 



3.2.2.329.12 _iaa - 

i f MAINTENANCE option 3> then 

PRINT "enter"* cdm_type.get_node.id tnode)i "node'S 
"node * '% node » 
" pass * "* pass > 
" result_req * 'V result_req> 
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end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition I t s t > 
end if; 

— The portion of the. COL (Candidate Definition List) which 

— contains names made visible by use clauses is used only 

— when PASS 3 3 or PASS » 4 



REMOVE from the COL all definitions which don't watch RESULT_REQ.> 
i f I ength ( COL) * 0 then 

— no ty pe-comoat i b I e definitions for this node 
RESOLVED :« FALSE J 

if PASS > 2 then 

ERROR 15022> 
en d if; 
return; 

elsif length (COL) = 1 then 

— only one definition. Resolve this node. 
SET sm_.de f„o ccur r ence * sm.exp. type for NQ0£> 
for EACH actual parameter> loop 

CL_£XP (ACTUAL parameter node>» PASS* TYPE of corresp. 

formal parm.>, OUMMY P ARAM.A VA IL>* RESOLVED ) ? 

ena loop; 

else 

— more than one possible definition 
RESOLVED :* FALSE » 

if PASS » 4 then 
ERROR 15023> 

return? 

ena i f ; 



— visit actual parameters 

PARM.LIST : = EMPTY> — list of sets of types 
for EACH actual parameter> loop 

CL.EXP (ACTUAL parameter node>» PASS* ANY type>* 

SON.PARM, RESOLVED); 

APPEND SON.PARji to PAR>M_LIST.> 
end loop; 

— See wnich definitions are still possible 
PARM.AVAIL :* EMPT Y> 

for EACH element of COL> loop 

if FORMALS don't match PARM_LIST> then 

REMOVE this element from the CDL.> 
else 

if TrtIS is a f unc t i on_ca I I > then 

APPEND result_tyoe for this element (of CDL ) 

to PARAM - AVAIL> 

end i f ; 
end if; 
end I oop ; 
end i f ; 

if MAINTENANCE option B> then 
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PRINT "leave'S cdm. type . qet^node. i d (node)* "node"* 
n node * " » node* 
n resolved * " * resolved* 
** param_avail * parai.ava i I > 

end if; 



3.2,2.329.13 p„Usaaatia !u£iass Saosr-aisa* - 

SEVERITY 

15022 E Subprogram call cannot match context 

requirements 

15023 E Ambiguous subprogram reference 



3.2.2.329.14 £xaEalSS 2l 23*5 2l£UfilU£Al« - None 



3.2.2.330 SyJiaf.aSf.aai* "* ov^range 



3.2. 2. 330.1 £ii£aa s.e. . - Perform overloading resolution on a node of type 
•range*. 



3.2.2. 330.2 As.iy.mflij.o.ai. - None 



3.2.2.330.3 XaalSfflaaialiaa <-an g qa ge . - This subprogram is written in Ada. 



3.2.2.330.4 iiisa Reqq r s i ve I y . - This subprogram is used recursively. 



3.2.2.330.5 Ntaai^a iadinia- - ovp.expr 
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3.2.2.330.6 tlaSi. &S2£Q3£J2£,JL2.S,« *" None 

3.2.2. 330.7 &£i2£Q££X!£i£.2 • ~ None 

3.2. 2*330. 8 2iliaLfl2£aai Vi5ib.jJ.iiy.. - Outside Package. 

3.2.2.330.9 £uil5-iia0.^f-£iifiailU£a» - This subprogram is a Procedure. 

3.2.2.330.10 Pfif-IBal £^L^2SliI.S • - 

node : in cd(n_type.c_node_ref » — diana node to be resolved. 

pass J in integer range 1..A; — pass of overloading algorithm. 

result.req ' in cdm.type .c.node.r e f ; — type of result required in 

context in which this node 
appears. 

param.avail : out cdm.type. c.node^r ef ; — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes. 

3.2.2.330.11 £i4£-£f_f.e.£&s. - None 

3.2.2.330.12 AJ.20.£ilha« - 

if MAINTENANCE option B> then 

PRINT "enter"* cdm_typ e. get_node_ i d (node)* "node 1 ** 
n node = " » node* 
n pass = *** pass* 
" result.req * "* result_req> 

end i f J 

if MAINTENANCE option 0> then 

PRINT candidate definition list> 
end i f i 

if PASS = 1 or PASS = 3 then 

CL.EXP <AS_EXP1>* PASS, RESULT_REQ» £X1_PARM* RESOLVED ) J 
CL.EXP (AS_EXP2>* PASS* RESULT_REQ* EX2.PARM, RESOLVED ) J 

else 
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CL.FX? US_EXP1>, P*SS, S^.SAS E_TYPE>, EXl.PARM* RESOLVED ) J 

CL.EXP US_EXP2>, PASS, S*_9AS E_TYPE>» SX2.PARM* RESOLVED ) » 
T :» Exl.PARM intersects EX2_PARM>: 
if 5T! = 1 then 

sm - ,base - type := T» 

PARAM.AVAIL :« T; 

else 

RESOLVED :« FALSE J 
if PASS * 4 then 

ERROR 15024> 
end if; 
end if; 

if MAINTENANCE option B> then 

PRINT **leave% cdm. type, get.node.. i d (node)* "node's 
" node * M » node* 

resolved * w » resolved* 
param.ava i I * "* param.ava i 1 > 



it 

end i f ; 



3. 2. 2. j 30 .13 aiaaQaaiia *asaaaaa Saaaiaiaa. - 

SEVERITY 

15024 E Range cannot be resolved 



3.2.2. 330. I* Sxaaalas. at 2aia Sif.uai.aLaa. - None 



3.2.2.331 SuafitaSLaffl. - ov.al ' oca tor 



3.2.2.331.1 PuLaaaa* ** Perform overloading resolution on a node of type 
* a I I ocat or • . 



3.2.2.331.2 As.s.y.jsp.^iarji. - None 
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3.2.2.331.3 l22l£2*Q.---±2Q, LaD.ilU2.2S • ' This subprogram is written in Ma., 
3 •2.2. 331. 4 Us,sji iiSiS.u.r.-i.vgJ.y.. - This subprogram is used recursively. 

3.2.2.331.5 ^e,5jLS«i .iiDJLo - ovp_expr 

3.2.2. 331.6 Hasl £i£l* None 

3.2.2.331.7 Il£aa,i ££P.£J2-£Il-jL£3« "* None 
3.2.2.331.3 S_b££P.2jrarn Y i s i. o i_ 1 t fry. - Outside Package. 

3.2.2.331.9 EuQ-ii2Q-££2j£3-y££« "* This subprogram is a Procedure. 

3.2.2.331.10 £2f.iSai P^LSSSl^JLl • ~ 

node : in cdm.type. c_node_ref ; — diana node to be resolved* 

pass : in integer range 1..4; — pass of overloading algorithm. 

result_req : in cdm_ type • c_node_r e f ; — type of result required in 

context in which this node 
appears. 

param_ava i I J out cdm_type.c_node.ref; — seq of types which may 

result after first pass. 

resolved : out boolean; — set to false if the expression can't be' 

resolved on the first two passes. 

3.2.2.331.11 iiiS=£lies.t s . - None 
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3.2.2.311.12 il52£.ii!lffl« " 

if MAINTENANCE option 6> then 

PRINT "enter", cdm. type • get_node_ i d (node) « "node"* 
« node * "» node* 
" pass * H » pass* 
" resuit_rea 3 % resuit_req> 

end if; 

if MAINTENANCE option 0> then 

PRINT candidate definition list> 
end if; 

FINO tyoe T for as.nane*> 
if AS.ACCESS. CONSTRAINT not void) then 
if T is a scalar> then 

CL_EXP (AS_ACCESS_CONSTRAINT, PASS, T, ACC.PARM, RESOLVED); 
elsif T is a record) then 

if not ALREADY a discriminant constraint) then 
if LfcNGTH of as«.access_constraint * # of 

discriminants) then 
CONVERT to discriminant constraint) 
end if; 
end i f ; 

if DISCRIMINANT constraint) then 
for EACH discriminant) loop 

CL.EXP (DISCRIMINANT), PASS, CORRESP. type), 
ACC.PARft, RESOLVED); 

end loop; 
e I se 

QV_AGGREGATE ( AS.ACCESS.CONSTRAINT), PASS, T, 
ACC.PARM, RESOLVED); 

end if; 
elsif T is an array) then 

if AS_ACCESS_CONSTRAINT is an index constraint) then 
for EACH index) I ooo 

CL.DSCRT.RNG (INDEX), PASS, CORRESP. type), 
ACCPARN, RESOLVED); 

end loop; . 
else 

CL.EX? (AS.ACCESS.CONSTRAlNT), PASS, T, 
ACC.PARM, RESOLVED) » 

end if; 
end if; 
end if; 



— • Compute allocator type 

REMOVE from CDL all definitions which don't match RESULT_REQ> 
if JCDLJ = 1 then 

P ARAM_AVA IL := R£SULT_REQ; 

sm_exo_tyoe : = . RESULT. REQ; 

else 

RESOLVED FALSE ; 
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if PASS 3 ** then 

E*SQS 15025> 
end i f j 
end i f ; 

if MAINTENANCE option S> then 

PRINT H leave*% edm_type.get_node_id (node)* "node% 
n node * "» node* 
" resolved =■ '% resolved* 
M param. avail * "» param_avall> 

end i f ; 



3. 2. 2. 33i.i3 aiaaaflsiia Ssisaass £sns£2£*a- - 

SEVERITY 

15025 £ Type of allocator not resolvable 



3.2. 2. 331.14 tiaiaias, at &a£a. lt£y.££.U£2&« ~ None 



3.2.2.332 5.n,b.Q.r.&2£2.!B« - ov^apoly 



3.2.2.332.1 2.U£a2S.£« ~ Perform overloading resolution on a node of type 'apply* 
which appears in an expression. 



3.2.2.332.2 AiSUffifiliSLUS* - None 



3.2.2.332.3 l22lS2.£aiaJU..2Q LaaauaaS* This subprogram is written in Ada. 



3.2.2.332.4 L25,e.a. S£SLSl£Si^il« This subprogram is used recursively. 
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j. 2*2. 332. 5 2s5,££g, ailQiri. - ovp.exor 



3. 2. 2. 332,6 Hfili &£°.&Q4sn£i&2« - None 



3.2.2.332.7 Qgaflnflgng f,£ None 



3.2.2.332.8 iy.2af.22C.affi y±S-L°li.U.I • ~ Outside Package. 



3.2.2.332.9 Punct frqn ^Pr T qc edur.e . - This subprogram is 3 Procedure. 



3.2.2.332.10 £2ti2ai PaLliD - 

node : in cdm^type .c_node„,ref J diana node to be resolved 

pass : in integer range l..4> — • pass of overloading algorithm 

result.req : in cdm_type.c„.node_r ef » — type of result required in context 

in which this node appears 
parain.ava i I : out cdn - type«c - nqde - ref ; — seq of types which may result 

after first pass 

resolved : out boolean; — _set to false if the expression can 1 1 be 

resolved on the first two passes 



3.2.2.332.11 £i4£-£f_f.e.££s.. ~ None 



3.2.2.33 2.12 AX<ja£jLlD.2» - 

— This routine will be called only once for each apply 

— Determine what type of •apply* it is 

if NAME attribute is a used^name^id node> then 
CONVERT •apply* to a • f unct i on.ca I I • > 
INVOKE statistics recorder) 
INVOKE ov_f unc.cal I > 
elsif P ARAM^ASSOCS is a range or the range attribute) then 
CONVERT •apply 1 to •slice , > 
INVOKE statistics recorder) 
INVOKE ov.sl i ce> 



e I se 



CONVERT •apply* to Mndexed 1 ) 
INVOKE statistics recorder) 
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INVOKE ov.indexea) 
end i f i 



3.2.2. 332. 13 iiaao.as.iia das.ia.ass SaaaLalad- - None 



3,2.2. 332.14 £^affittlas 2L Sala IfcXUalilLaS.- - None 



3.2.2. 333 E.aa!saaa« ~ ovp_ctx.t 



3.2.2.333.1 ?»U£aaS.£» "* Perform overloading resolution on Oiana nodes which 
impose context requirements on expressons they contain. 



3.2.2.33 3.2 ^siaaai at SuaaiaaLaSlS.* " 25 



3.2.2.333.3 Qaaaaoaaaiss. aa Qiiiar Eaaisaass ian Saaa* - cdm_type 



3.2.2.333.4 Astdiiiaaai Qaaao.a'aaicias ia£ Saa"y.« - ovp.cias* ovp_expr> ovp„utii» 

cdtji_as» ovp_travi stats 



3.2.2.333.5 Eaaiiaaa iaaaiiiaaiiaa- - 

package ovp_ctxt is 

— see overview in package ovp_trav 
procedure ov.pragma ... 
procedure ov„constant ... 
procedure ov_var 
procedure ov.nuinber ... 
procedure ov.constrnd ... 
procedure ov_integer ... 
procedure ov_f I oa t type ... 
procedure ov_fixedtype ... 
procedure ov_f loatcon ... 
procedure av„f ixedcon ••• 
procedure ov„var_part ... 
procedure ov_assign ... 
procedure o v_cond_c I s ... 
procedure ov.case ... 
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procedure ov.f or.rev ••• 
procedure ov_exit ... 
procedure ov_return ••• 
procedure ov_in ••• 
procedur e ov.proc.ca I I ... 
procedure ov_entry ••• 
procedure ov.en tr y.ca I ••• 
procedure ov_delay ••• 
procedure ov.se I ect_c I ... 
procedure ov.s i flip _ rep ... 
procedure ov. apply ... 
end ovp.ctxt; 



3.2.2.33 3.6 £i2aSL2iiaQ - None 



3^.2.333.7 g.iiQjo.lSi al Hall il£U£lkire.s. - None 



3* 2. 2*334 Si^^o.r.o.or.a.jn. - ov_pragma 



3.2.2.334.1 2,y.LJ2.2S.£ • ~ Perform overloading resolution on a node of type 
•pragma 1 • 



3.2.2.334.2 A^Sy.2iaii2£lS« ~ None 



3.2.2.334.3 IiBflJ.£iBSll£aii.£fl L2.H2U3.as • *~ This subprogram is written in Ada 



3.2.2.334.4 Llse.£L Ea£U£Siv.ai^« —'This subprogram is not used recursively, 



3.2.2.334.5 Ne.si.jga. &jL£ll±Q« - ovp„ctxt 
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3. 2.2. 33 4. o H;2Si •XSttaQilailSJLS.l* " None 

3.2.2.334.7. iar.s_£ asaaa^an-lsi- - N0"« 

3.2.2.334.8 Syb.2r._sxa.rg y.i_±_i.ii_Y.« ** Outside Package. 

3.2.2.334.9 £__________££__;_£_ • - This subprogram is a Procedure. 

3.2.2.334.10 t2f.2_i 2.aL32iai.sr.5.« ~ 

node : in cdiTi_type.c_node._ref ; — node to be resolved 



3.2.2.334.11 ii - £-_ ) _£___s.. - None 



3.2.2.334.12 AJ.20.r.iii2!Il« ~ 

if MAINTENANCE option A> then 

PRINT "at"» cdm -> tyoe.get_node..i d (node)* w node w > 
end i f ; 

RESOLVE as_param_assoc_s> 
if PRAGMA include> then 

if ARGUMENT type not string> then 
ERROR 15026> 

end i f ; 

e I s i f 

PRAGMA meraory.s i z e> then 

if ARGUMENT type not integer> then 

ERROR 15027> 
end if; 

elsif PRAGMA oriority> then 

if ARGUMENT not of type priority> then 
ERROR 15027> 
, end if» 

elsif PRAGMA storage_un i t > then 

if ARGUMENT not of an integer type> then 
ERROR 15027> 

end i f ; 
end i f ; 
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3.2.2.334.13 iiaaaa^lia &££saas.s £&a£r.ai£»i« - 

SEVERITY 

£S}S£ HjL«xU5.j.t IE*! 

15026 c string required 

15027 E Integer type required 



3.2.2,334. 14 tiajsalSS. a! L£r.ii£iitr.2£- - None 



3.2.2.335 Ik£l2r.aa£2!!l« " ov. constant 



3.2.2.335.1 2.ur.aaS£« ~ Perform overloading resolution on a node of type 
•constant*. 



3.2 .2. 335 .2 As.5,y.2iaJ!i.iaO.S« "* None 



3.2.2. 335.3 laialf.Qiao.JLaliail Laaauaaa* - This subprogram is written in Ada. 



3.2.2. 335.4 Ussa &£S.U£Sil§.l^« ~* This subprogram is not used recursively. 



3.2.2.335.5 Ji£ii5a" HiAJlifl* ~ ovp_ctxt 



3.2.2. 335.6 liasl ££a£Qd£2£J.S5. • - None 



3.2.2.335.7 iar.as.i asaaa^aasLUs • - None 
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3.2.2. 335.5 luft££a > 2£2a y.i£iiiili£v • - Outside Package. 

3.2.2. 335.9 EilQ£li<2n / £r 2££<2yj:£ • - This suoprogram is a Procedure. 

3.2.2.335.10 Eaimal Par-assists • - 

node : in cdm.type. c.node.re f ; — - node to be resolved 

3.2.2.33 5.11 SJ.a.e. = £f,f,e.c.££. - None 

3.2.2.33 5.12 Aj.22r_ii.hfji. ~ 

overload (AS.Q6JECT.0GF>, AS.TYPE.SPEO ) ; 

3.2.2.335. 13 aj.aaQos.iic. £laSia2£i Ssn.Sf.aia4* - None 

3.2.2.335.14 i2La2alSS. ZL Gaia lLLUC.iLUr.SS- " None 

3.2.2.336 lu.b.o.r.o.ar.a.m. - ov.var 

3.2.2.33&.1 £,U£ttS£S« "* Perform overloading resolution on a node of type *var* 
3 .2. 2. 336. 2 i-SSUfflttiiSilS* *" None 

3.2.2.336.3 laaiSfflSQiaiiSQ. L2.QaU3.aS* ~ This subprogram is written in Ada. 
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3.2.2. 330.4 jJs.ea S££ilL£iy.si.Y.» - This subprogram is not used recursively. 

3.2.2. 336.5 Ne.5,£e.g; WjLXaXn.. - ovp.ctxt 

3.2.2.336.6 Nasi ae.aaQ.4aaa.Ui* - None 

3.2.2.336.7 laf-SSl P.aaSQda!iaia.S« - None 
3.2.2.336.3 lu.2ttta3f.aoi ViiiiiJ.il}> ~ Outside Package. 

3.2.2.336.9 £u0.aii2Q^£r.ajS*£tilf-£ • • This subprogram is a Procedure. 

3.2.2.336.10 £2£»2ai 2.aLsl!2aia£iL« *" 

node : in cdni.type.c.node.ref ; — node to be resolved 
3.2.2.33 6.11 SiaazEItaaii. - None 

3.2.2.336.12 ^iaaLii!l2l« " 

overload ( AS. OB JECT_QEF>, AS.TYPE.5PEC>); 

3.2.2.336.13 iia2Qfl£li£ H2.2ia.2L2S SSQSLai^- - None 

3.2.2.336.14 £x.a.maie.s. at Qail lU.MS.iU£SS« - None 
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3.2.2.337 inLiUkLaara,!* - ov.number 



3.2.2. 337.1 EilLaase.. - Perform overloading resolution on a node of type 
'number* 



3.2.2. 337.2 ASSiUBaiiaiH* *~ None 

3.2.2.337.3 lE2ie.gjeQiaJJ.aQ Lld2!i22£« ~ This subprogram is written in Ada. 
3.2.2. 337.4 ys.e.2 ftqcu, r s, j ve I y . - This subprogram is not used recursively. 
3.2.2. 337.5 Ne.££e,a. iiiiQin. - ovp_ctxt 

3.2.2. 33 7.6 Ho.il Q^aSflitanaiSS* - None 

3.2.2.337.7 Idf.a£i asaSGdansIfi.S • - None 

3.2.2.337.6 SuaaLaSXaol Visi^ililx* - Outside Package. 

3.2.2.337.9 £uQ£tiaaZ]i£2£2.2 , !JL££« -This subprogram is a Procedure. 

3.2.2.337.10 £a£mal PaLaSfitSLS.* - 

node : in cdm - type.c_node - .ref » — • node to be resolved 

3.2.2.33 7.11 IL&S.-ZLLS.S.LS.* " None 
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i. 2. 2. 337. 12 Aiaa£±i!2iS- ~ 

if MAINTENANCE option A> then 

PRINT M at"» cdm.type.get..node^i d (node)* "node") 
end i f i 

overload (AS_EXP> f "any type**); 

if SM_EXP_TYPE of as_exp is not un i versal.i nt eger or un i ver sa 1 _r ea I > then 

ERROR 15023> 
end if; 



3.2,2. 337. 13 iiasQaiiis. *asaasaa ££as£al£d« - 

SEVERITY 

L5028 E literal expresson required 



3.2.2.337.14 s.x.a]iaJ.£5, 2i 0,^2. 2££U£iU£21- - None 



3.2.2.338 Sn&ataaLas • ~ ov^constrnd 



3.2.2.338.1 PiiUflflSa* ~ Perform overloading resolution on a node of type 
•constrained* 



3.2.2.338.2 As.s.u.2ra£io.ns.. - None 



3.2.2.338.3 Il2i.£2l£D.iaiJ.2Q. LsLa3LH2.a£ • " This subprogram is written in Ada. 



3.2.2.338.4 ys.ed. Se.c.U£SiY.§J.£» ~ This subprogram is not used recursively. 



3.2.2.338.5 Ne.s.£e.d, rt±Jj2±Q.« - ovp_ctxt 
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3.2.2.338.6 ijasi QSii£,£lilS.Il£,i^l« " None 



3.2.2.338.7 XlL£S,l Q,£S.aflli£IlS.iS.i» ~ None 

3.2.2.338.8 isiatt£2aLa!!l liliSLilily.* * Outside Package. 

3.2.2.338.9 Eu0,£iiaa££ia£ailyJLa« " This subprogram is a Procedure 

3.2. 2. 338. 10 £a£2al Par„afwet t er ,s . - 

node t in cdm - „type.c_node_ > ref » — node to be resolved 

3.2.2.338.11 iiaszEli&SLLl • - None 



3* 2. 2. 338. 12 Aj.aatii.hm. - 

if MAINTENANCE option A> then 

PRINT "a't M t cdm_type.get_node_i d (node)* M node"> 
end if; 

GET type T of as.name> 
cl_constrnt ( AS.CONSTRA INT> , T) ; 



3.2.2.338.13 £LU2£10.&ii£ Me.s.s.aae.5. £e.n.exalSd- - None 



3.2.2.338.14 fcxajaaiSS. 2l Qala SU;UC.3LS1£*S- - None 



3.2.2.339 Sy,b ar.2Sl.aja. - ov_integer 
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3.2. 2. 339,1 tlLQ.2S.SL* " Perfor-n overloading resolution on a node of type 
' t nteger * 



3.2.2.339.2 As^u.fnp.£io.n.s.. - None 

3.2.2.339.3 IiaiSasalaLLaa Lan g ua ge. - This subprogram is written in Ada. 

3.2.2.339.4 UiS.^ , &l£.y.L!Ll£.Ll* " This subprogram is not used recursively. 

3.2. 2. 339.5 ^SSiSd, *iiai2« - oyp.ctxt 

3.2.2.339.6 EaSl Qs&£2£l£Q£j.££» ' *" None 

3.2.2.339.7 lacasl Usaaadaaaiss- - None 

3.2.2.339.8 Su2ar.2ar.aJ2 ^iSiaiiiiy.* - Outside Package. 

3.2.2.339.9 £.\AQ,S.LiQ.Q.l.£.L2S.2.&lLL2.* - This subprogram is a Procedure. 

3.2.2.339.10 Faojai p axaasisr.** - 

node : in cdm_type.c - node - .ref » — node to be resolved 

3.2.2.339.11 S.ias=?ile.c.iJ. - None 



3.2.2.339.12 AiaarJUasn* - 

if MAINTENANCE option A> then 

PRINT "at'S cdm_type.get_node_f d ( node ) « " node M > 
end jf J 
GET as_range> 
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over load <A.S_EXP1>, "any type"); 

if SM_S:XP_TYPE of as.exil not an integer type> then 

Sk*GR 1502<*> 
end i f 5 

overload ( AS_ExP2>» "any type") J 

if SM.EXP.TYPF of as.expZ not an integer type> then 

ERROR 1d029> 
end if; 



3,2.2,339.13 iiaaQfiiUs fi£2aa<is.s fisaaLaiafl- - 

SEVERITY 

15029 £ integer type required 



3.2.2,339.14 sL.isiE2.iSS. 2i 0.3 i 2. Slr.H£iLUL££« "* None 



3. 2.2. 340 Sy.£LP.£°.Sf.a!2« " ov.floattype 



3.2.2.340.1 £.uiaajje.. - Perforn overloading resolution on a node of type 'float' 
which is used as a type specification* 



3.2.2.340.2 As.syjflQjiip.fls.. - None 



3.2.2.340.3 !22lS,i3!£Q.ia£i2Q U2.Q.2U£££ • ~ This subprograu is written in Ada 



3.2.2.340.4 Useji 5sSLuXSj.y.sJ.y.. ~ This subprogram is not used recursively. 



3.2.2.340.5 Nje.sJt.Sdi Hii&LIl* ~ ovp_ctxt 
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3. 2.2. 3*0. o Hail U£a&Qla&&.i£JL« None 

3.2.2,340.7 laLaak iisaaaaaaaias* - None 

3.2.2.340.3 £iii2af.&2LiL!B iiS,iaiiJLll • " Outside Package. 

3.2. 2. 3 40 .9 Euaaliaa£f.£2i2&iiJir.£ • ~ This subprogram is a Procedure. 

3. 2.2. 340. LO £flL2al PaxaiSaiaiLS.- ~ 

node : in cdm_type.c_node._ref; — node to be resolved 
3.2.2.340.11 ,j.4S=£U££il. - None 



3.2.2.340.12 AlSflCilniD. - 



option A> then 
cdm - type.get_node_i d 



if MAINTENANCE 
PRINT "at", 
end i f i 

overload (AS_EXP>» "any type"; 

if TYPE of as_exp not an integer type> then 

ERROR 15030> 
end if; 

GET as_r ange.vo i d> 
if NOT void> then 

overload <AS_EXP1>, 

if TYPE of expl not 
ERROR 15031> 

end if; 

overload <AS_EXP2>t 
i f TYPE of exp2 not 

ERROR 15031> 
end if; 
end i f $ 



I node) * "node"> 



"any type"); 

a r ea I type> then 



any type"); 
a real type> 



then 
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3.2.2.3 40.13 iia2QO.Si.ic. kSQSLaiSa ~ 

SEVERITY 

15030 E integer required 

15031. E real type required 



3.2.2.340.14 £xamal2£ of Sir.USiUf.Sl* - None 



3.2.2.341 Suhqroc| r.am. - ov_.fi xedtype 



3.2.2. 341.1 F.y.f.D.0. • - Perform overloading resolution on a node of type 'fixed* 
whicn is useo as a tyoe specification. 



3.2.2.341.2 iiSUEfiiiaOl* ~ None 



3.2.2.341.3 l2UlSlBS,Qiaii2£l LdLD.£Ua££« " This subprogram is written in Ada. 



3.2.2.341.4 Uiast &£.£U£Si v .SJLY.« ~ This subprogram is not used recursively. 



3.2.2.34 1.5 NfiSieg. WiihJ.n. - ovp.ctxt 



3.2.2.341.6 Hasi Qsae.nilS0.£iSS» - None 



3.2.2.341.7 Ia£3Si USaaHdailiiai* ~ None 
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3.2.2.341.3 Iu*22£!ia£2£S • ** Outside Package. 

3.2.2.341.9 £ua£li2ai£f,2J££^U£§« - Tnis subprogram is a Procedure. 

3.2.2.341.10 Ea£isal £ataaftia£s« - 

node : in cdm_type.c_node_.ref; — node to be resolved 
3.2.2.3 41.11 SidSz£llafilS« - None 

3.2.2.341.12 ^iasciitiia- - 

if MAINTENANCE option A> then 

PRINT "at"* cdm_type,get_node_i d (node), "node n > 
end if; 

overload (AS_5XP>i "any type"); 

if TYPE of as_exp not a real tyoe> then 

ERROR 15 03-0 > 
end if; 

GET as_range_vo i d> 
i f NOT vo i d> then 

overload (AS_EXPl> t "any type"); 

if TYPE of expl not a real type> then 
ERROR 15031> 

end if; 

overload (AS_EXP2>» "any type"); 

if TYPE of exp2 not a real type> then 

ERROR 15031> 
end if; 
end if; 

3.2.2.341.13 i2iaaQ2iii£ Uassaaa^ - 

SEVERITY 

15030 E integer type required 

15031 £ real type required 
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3.2.2.341.14 ixaaiiiaS. of Sir.u.ai.yx.iS.* ~ Nona 



3. 2 .2* 342 £y.aa£a2f-£i2« " ov.floatcon 



3.2.2.342.1 2.ii£aaas« - Perform overloading resolution on a node of type *float* 
which appears as a constraint* 



3.2.2.342.2 ^SSujEaiiaELS' " None 



3.2.2. 342.3 IaaJ.S2Sai,^iifia LlD.ilU2.aa* - This subprogran is written in Ada. 



3.2. 2.342.4 Us.e.a' ££aU£S.i v .S.i.Y.» — This subprogram is not used recursively. 



3.2.2. 342.5 tiai^a jdiiaiQ* - ovp^ctxt 



3.2.2.342.6 Has£ Q£aSQilS.£iai£S>* "° None 



3.2.2.342.7 I^L£S,1 Q£a£Qil£aai£S« ~* None 



3.2.2.342.3 2.yiaa£a2£2!Il y 8.S iftil LtY„« ~ Outside Package. 



3.2.2. 342.9 £uQ£iiaaZ££ai*££tU££» " This subprogram is a Procedure 



3« 2. 2. 342. 10 EaLOiai Par ir am^t er s . - 

node : in cdra.type.c^node^ref ; — node to be resolved 
result.req : in cdra.type . c.node^ref » — type of result 

required in context 
in which this node 
appears 
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3.2.2.342.11 iid.e.-F£f,££l.2> - None 



3 .2. 2* 342 .12 A .l22£.i.,&£iia« ~ 

if MAINTENANCE option A> then 

PRINT "at'S cdm^typ e.get_node_i d (node), "node w > 
end if* 

overload (AS_EXP>» "any type"); 

if TYPE of as_exp not an integer tyDe> then 

ERROR 15030> 
end ifj 

if AS_RANGE_VOID not void> then 

overloading { AS_R ANGE_VQ ID> » TYPE of as.exo>); 



3.2.2.342.13 &ia.2Q.2i$.LSi *£S£a££S £«Q£X.ai£i« 
SEVERITY 

15030 £ integer tyoe expected 



3.2.2.342.14 L* 32 2.1 SSL 2l Qli3. iiLUSi.UiS.i • None 



3.2.2.343 £y.22£2££.a!E» ov^fixedcon 



3.2.2.343.1 PiLaasa.. - Perform overloading resolution on a node of type •fixed* 
which appears as a constraint. 



3.2.2.343.2 A 5,s.y,f2aii2.ai« ~ None 



3.2.2.343.3 l22i22S.OJL2.ii20. i»2LQ.3Ua&£« " This subprogram is written in Ada. 
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3.2.2.343.H lissii &aiU,r.SiY.2.i*« - This subprogram is not used recursively. 



3» 2. 2 .343.5 JlSSlSfi aillii.il* ~ ovp_ctxt 



3«2«2«343.6 fciasi. fiisaande. ££.!.«..§.• - None 



3.2.2.343.7 Ii£5£i !isa£fi£iS!2£iS.2« *" None 



3.2.2. 343. 8 Su22f.a2f.aa! i ±li2ili££ • " Outside Package 



3.2.2.343.9 £un£ii20.Z,££25§.StU£S • ~ This suoorogram is a Procedure. 



3.2.2.343.10 Fataal EaLassisr.1- - 

node : in cdm.type. c_node_ref ; — node to be resolved 
r e su 1 1 _r eq : in cd,u_type • c.node.re f # — type of result 

required in context 
in which this node 
appear s 



3.2.2.3 43.11 SJ.as-f.if ££11. - None 



3.2.2.3 43.12 a laaciiiun* - 

i f' MAINTENANCE option A> then 

PRINT "at'S cdm - type.get_node_i d (node)* w node"> 
ena if; 

overload (AS_EXP>* "any type"); 

if TYPE of as_exp not a real type> then 

ERROR 15031> 
end if; 

if AS.RANGE_VQIO not void>* then 

overloadrng ( AS_RANGE_VOID> ♦ result_req)J 
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3.2,2. 343,ii liaaoaitia aasxaaai. fisaataisd.* - 

SEVERITY 

15031 E real type required 



3.2.2.3 43.14 fLsafflalfii 21 Qaia Ii£ii£iM£aS* - None 



3.2.2. 34*t SiiELU,££2£a£D« - ov_var_part 



3.2.2.344.1 E, ur.2.o.2,e • - Perform overloading resolution on a node of type 
• var i ant oar t ' • 



3.2.2. 3 4<t. 2 £SSJ12i£ii2.n.S» - None 



3.2.2.344.3 laaisaaaiaiiaa LaQ.au.a2S* ~ This subprogram is written in Ada. 



3.2.2. 344.4 £S£,u,£Siy.&iy.. ~* This subprogram is used recursively, 



3.2.2.344.5 !i££isa. kiJLQifl* ~ ovp_ctxt 



3.2.2.3 44.6 Hill &S9.£2Ul3. n .£.i££ • None 



3*2.2.344.7 Ia£.3S.£ Q.SaSD.llS.ES.ia.^* *" None 



3.2.2.344.3 Si±!2££P.il£a!E liSidjJ.iiY. • " Outside Package. 
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3.2.2.344.^ Pjnct \ on/^rpcsj^ure « - This suoorogram is a Procedure. 



3.2.2.344.10 £2£.ilial jjaCiiflBSlaLS, « ~" 

node : in cdjn.„type.c - ,node.ref » — node to be resolved 



3.2.2.344. 11 iidftsfiUftfiti. - None 



3.2.2.344.12 ^laflCiitira. - 

if >MA I NTENANCE option A> then 

PRINT "aft cdm - tyoe.get_node_i a (node)t "node w > 

end i f ; 

GET type T of discriminant named in as_name> 
for EACH element in as.var i an t_ s > loop 

ov.crto i ces ( AS.CHO ICE_5 of list elements T) ; 

ov.record (AS^RECORO of list element>); 
end loop; 



3.2.2.344.13 I2±a<iri2£ti£ SSlSaaSl ££!l££l££5t- - ^one 



i. 2. 2. 3 44. 14 tiasalSS 2l Q2la LtLU£iUL££* - None 



3.2.2.345 Sy.b2ro.ar.ag1. - o v_ass i gn 



3.2.2.345.1 Pu£22££» - Perform overloading resolution on a node of type 
'assign'. 



3.2.2. 345.2 As.£i,im2£j.o.n.s.. - None 
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3.2.2. 345. 3 Ii2lSlSQjk.Li.20. Lang ua ge. - This subprogram is written in 4c$a. 



3.2.2. 345.4 U5.2.SI -£S.U£-iy.ai*> ~" This subprogram is not used recursively. 



3.2. 2.345. 5 Ne.s._e.£ aiiilJLil* *" ovp.ctxt 



3.2.2. 345.6 H_s._ _e.p.e.n-£2-iai- - None 

3.2.2.345.7 I_£3.e.£ .Sff.lO.dSS.Jtil.S* " None 

3.2.2.345.8 1a5.SLL22L&& ViSi&ilii-* - Outside Package. . 

3.2.2.345.9 E_2c. - _2n._££o.c^djir.e,. " This subprogram is a Procedure. 
3.2.2. 345.10 £p.£2al • ~ 

node : in cdm.type .c.node.r e f ; — node to be resolved 
3.2.2.345.11 _i_e-5J.f.e.c.t s,. - None 



3.2.2.345.12 AJ._pxi.nm. - 

if MAINTENANCE option A> then 

PRINT "at'S cdm_type.get_node.id (node) > M node w > 
end ifj 
pass : « 1 
reso I ved := true J 

while (pass 4 and resolved * true) loop 
reso I ved :* f a I se 

cl.exp (as.namej pass* "any type"* left.parm* left. 

reso I ved ) ; 
i f J I ef t.parm i =» 1 then 

T := I ef t.parm* 

cl.exo (as.exp* pass* T» right, parm* r i ght.r eso I ved ) » 

else 
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— must get resolution of LHS from RHS. 

cl.exo (as.exp? pass* "any tyoe'% right.parm* r i ght_r eso I ved) » 
T :» LEFT.PAR.1 intersects r i ght_pa r m> i 
end if? 

if IT! * 1 then 

— run second (or fourth) pass* if necessary 
if not I e f t_r eso I ved then 

cl_exp (as.nane pass+l« T 9 left.parm* resolved); 
end if; 

if not r i gh t^r e so I ved then 

cl_exp (as.nauie» pass + l» T* r i ght_parm» resolved); 
end i f # 

else 

resolved s* false; 
end lf» 

oass : = oass+2; 
end loop; 

if resolved = false then 

ERROR 15032> 
end i f ; 



3,2.2. 3A5,i3 Qiaaaaaiifi ^naasi £&n&La&£4« - 

SEVERITY 
£flG£ {UM*£*S*E I£*I 

15032 E tyoe of assignment expression does not 

watch type of target 



3.2.2. 345.1 A j=xaaj&ie.s. q± Qa.£a lLr.U£Iil££S.- - None 



3.2.2.346 Sy.aaL22C.ai2* ~ ov..cond_cls 



3.2.2.346.1 £!i£aa§.a« *" Perform overloading resolution on a node of tyoe 
' con d_c I ause ' • 



3.2.2.3 46.2 ASSUffiaiianS* - None 
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3.2.2. 346.3 IJ2i£2-Q.i*a-i2Q. _2Q.&U2.-£« ~ This sutjprogran is written in A3 

3.2.2.346.4 ..Sit Sac.y.r.s.ive.iy.. - This subprogram is not used recursively 
3 • 2. 2.346,5 NfiiLSSi _i._Jlj.Il. - ovp.ctxt 

3. 2. 2. 3 4b. b HfiSi ----I1-_I1SJ.-S« - None 

3.2.2.3 4o. 7 Ia£5S.i USfi2SSlS,l2£iSl« "* None 

3 •2.2.346. 3 __2fi£o.SX_S! _i-i-jLLi£-« Outside Package. 

3.2.2.346.9 £unjiii2Q££ r .a5a. d .ii£S« - This suoprogram is a Procedure. 

3.2.2.346.10 £2£2ai -aL_£-.U£_- ~ 

node : in cdm^type . c^node^re f J - node to be resolved 
3.2.2.3 46.11 _idjg-£XXe.£_s.. *" ^one 

3.2.2.346.12 Aj._o.£±.__!_. - 

if MAINTENANCE option A> then 

PRINT "at'N cdm_type.get_node.id (node)* M node"> 
end i f j 

overload ( AS_EXP_VQIO> » "boolean"); 
RESOLVE as_stn_ s> 
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3.2.2.346. 13 iia2Q2§.ii.£ 225,11231 ££a£f.ai&9.» ~ None 



3.2.2.3 4o .14 £xaiE£l*S 2t !2a£2 li£.U£i.UL£5.« ~ None 



3.2.2.347 Sy,Jui££<l£,ai2» ~ ov_case 



3.2. 2.347.1 £u£fl.ase.. - Perform overloading resolution on a node of type 'case' 



3 .2.2.3 47 .2 As.s.ymp.ij.o.IlS" " None 



3.2.2.347.3 l2SiS!2£Q,ialiaO. Li.!U3Uil2£ • - This subprogram is written in 4da 



3.2.2.347.4 liisa &£S.lAf.£i.v ej.£. - This subprogram is used recursively. 



3.2.2.347.5 BfiiLSJl KtilJliQ* ~ ovp.ctxt 



3.2.2.347.6 HfiSi Qs&Sflge.nt^e.s.. - None 



3.2.2.347.7 Ilir.<lS.& &£&&Q£& n .£i.2.2* ~° None 



3. 2. 2. 347. 3 £u.b.£r.o.<jr,ilffl V <■ 5 b, M I • ~ Outside Package. 



3.2.2.347.9 F,u,nc,t i qn^P.r.o cedgr e . - This subprogram is a Procedure. 
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3.2. 2. 347.10 £,2£2iai °&£2E:i£££l» ~ 

node • in cdm_typ e. c^node^re f ; — node to be resolved 
3. 2. 2. 347. 11 £i4e.-£f f,e.c.£.s.. - None 



3.2.2.347.12 AiafttlUll^ -.. 

if MAINTENANCE option A> then 

PRINT M at'% cdm_tyoe.get_node.Jd (node)* M node"> 
end if; 

overload (AS_ExP» "any type 1 *); 
T :» TYPE of as_exp>; 
GET as_a I ternat i ve_s> 
for EACH element of as_list> loop 
GET as_cho i ce_s> 

for EACH element of as_list> loop 
ct.choice (LIST element>t T); 
end loop; 
RESOLVE as.stm - s> 
end loop; 



3.2.2.347.13 QLUsaaSliS. *S1£32£.S S£!lS£ai--« - None 

3.2.2.347.14 __a.f2D.J.e.s. 21 Q-il 5i£U£iJl£*l. - 
none 

3.2.2.348 2.M_fi£o.S£a{2» ~ ov_for_rev 



3.2.2.348.1 P.£ao.s.g. - Perform overload resolution on a node of type *for'» or 
of tyoe •reverse'. 



3.2.2.346.2 Asiii!22ii2I15« ™ None 
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i.2.2.J4o.3 Iil2i£i3l£Il_„£ > i20. W.3.Q.2U.2.ES • " This subprogram is written in Ada. 
3.2.2.348«4 HiSLSL &£S.y.L-iY.S.i-> ~ This subprogram is not used recursively. 

3.2.2.346.5 We.__.gal iliijiiD.* " ovp_ctxt 

3.2.2.3 48 .6 HflSi -SP.-I2-S,nS,i£S> None 

3.2.2.346.7 ______ 12sa£Ild&ri-iaS- - None 

3.2.2.348.8 SuafitlilLaa y.iiialiill • ~ Outside Package. 

3.2.2.348.9 Eu0.cJ__aQ_£L2£&_ilL4 • *" This subprogram is a Procedure. 

3.2.2.348.10 F a____ iacaES-ST-i • - 

node : in cdm_type.c_node._ref ; — node to be resolved 

3.2.2.348.11 ____________ . - ^one 

3.2.2.348.12 A__a___hm. - 

if MAINTENANCE option A> then 

PRINT M at"» cdm_type.get_node_i d (node) » w node w > 
end if, 

GET as_dscr t_r ange> 

if as.dscrt.range is 'constrained* then 

' RESOLVE as_dscrt_range> 

else 

— must be 'range 1 node 

overloaurng ( AS_OSCRT_RANGE>* "any type")*' 

if TYPE of as_dsc r t_range is universal integer 

SET type of looo parameter (as_id) to integer> 

else 

SET type of loop parameter <as_id) to type of dscrt_ 
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r an ge> 

end i f ; 
ena if; 



3.2.2, 343 ,13 iiA5Q2Si.i£ ££Q5.f.aiS2» - None 



3.2.2. 34d. 14 £aaamlS£ 2t QSla lfcr.U£ilif.£a» - None 



3.2.2.349 S.ukaf.flfif.asi* ~ ov.exit 



3.2.2.349.1 £.y.LfiiiS,&« ~* Perform overloading resolution on a node of type 'exit 



3. 2 .2.349.2 As.iyj2a£ig.Q.,s.. - None 



3.2.2.349.3 InsiS2BSD.laiJ.ii0. L2.0.aua£S» ~ This subprogram is written in Ada. 



3.2.2.349.4 Us.e.d, SS£.iiLSiY.SlY.« ** This subprogram is not used recursively 



3.2.2.3 49.5 Ne.s,£e.o. SlittliXl* " ovp.ctxt 



3.2.2. 349.6 HfiSi USPJUide.nc.j.e,s.. " None 



3.2.2.349.7 laiSSi QSfiS2£SG£i£.S« - None 



3.2.2.349.8 Sytb.jp. £2 2 ££22 V » s i b i I i tv. - Outside Package. 
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3.2.2.349.^ £_a£,IiP.!l- PL2SS.1u.LS. • "~ Tn • s suborogran» is 3 Procedure. 
3.2.2.3 49.10 £<2L!Bsll ° • ~ 

node s in cdm_type.c_node_ref ; — node tobe resolved 
3. 2,2. 349,11 S,ias-£lLe.2ii. - None 

3.2.2.3 49.12 Aj.a.Q.LilQ!2. - 

if MAINTENANCE option A> then 

PRINT "at'% cam_tyoe.get_node.id (node)* "node"> 
end if) 

overload ( AS„ExP - .VQID> « boolean); 



3.2.2.3 49.13 Siia.anas.iic. _.fi£_;3a&S SsaSL-UUd- - Mone 



3.2.2.3 49.14 ^aSttiSS fli 5iLii£iUL5S* - None 



3.2.2.3 50 Sj_20.L2,2L2i!2» ~ ov.return 



3.2.2.350.1 £„Lfi.2.S2« ~ Perform overloading resolution on a node of type 
•return' 



3.2.2.350.2 A iSU2fiii°.fl5 • "* None 



3.2.2.350.3 l22i£ffi£H._a_,iJ20. L2.Q2U£££ • - This subprogram is written in Ada. 
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3.2.2.350. <t 'isaa, ii<LaULSi.Y.sLJLx» ** This subprogram is not used recursively. 

3.2. 2.350. 5 Ne.Si.gSl £ilhiQ. - ovp_ctxt 

3 .2. 2 .350 .6 Hail Q.Saa£U2S.0.ai.SS.» ~ None 

3.2.2.350.7 Ia£5£t UjSaSD.a'&aaia.S* " None 
3.2.2.350.3 Siiaar.22r.ta Y.iliailiiY.« - Outside Package. 

3.2.2.350.9 £u.ri£i.iaD.Z.£L2j£§.lUX.2.« "* This suoorogram is a Procedure. 

3.2.2.350.10 £af-2ai t3LL3.BS.LS.LS.* ~ 

node : in cdin^type .c.node^re f ; — node to oe resolved. 

3.2.2.350.11 S.i4s = £tie.cj l s. - None 

3.2.2.350.12 AJ.a2Lili222« " 

overload < AS_EXP_TYPE> » RESULT type of functionX); 

3.2.2.350.13 iidaaaaiLia Nssaga,s Ge ne.r.afre.o;. - Norte 

3.2.2.350.14 tiaiaiaa al aaJU SiLaatuLas- - None 
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3.2.2.351 iyJ2,ii£0.2 r .2!B» " ov^in 



3.2.2.351.1 f.a.f.aas.e.. - Perform overloading resolution on a node of type 'in 1 

3.2.2.351.2 A iSiifflfiiiftQS* "* None 

3.2.2.351.3 laalsaaaialiflD. ~ This subprogram is written in Ada. 
3.2.2. 351.^ Uisji ESSLULSi^eil* - This subprogram is not used recursively. 
3. 2. 2.351. 5 ^eiLi-Sil &i££li!2« " ovp„ctxt 

3.2.2.351.6 HflSl Q£fi£Ull£££.iiL5. • ~ None 

3.2.2.351.7 Iaxa£l £L&a£<3 d.e.r2cJLs.§ • - None 

3.2.2.351.8 lyfiacaSLail! ViliaililY.* - Outside Package. 

3.2.2.351.9 Funct ion /.Procedure. - This subprogram is a Procedure. 

3.2.2.3 5 1.10 taLiBal £^L12£llLS.» ~ 

node : in cd'n^type • c.node.re f ? - node to be resolvedq 

3.2.2.351.11 S^iaszill AfitS« - None 
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3.2. 2. 351*12 iia&LilaOi* - 

if MAINTENANCE option A> then 

P RI NT rt at"» cdm_type.get_node_.id (node) t M node M > 
end i f i 

RESOLVE as.tyoe.spec> 

overload ( AS.EXP.VO I0> , AS.TYPE.SPEO) ; 



3.2.2.35i.i3 aiaaaaatia. aaaaaaas £ea*£3£._- - *'o"e 



3.2.2.351.14 tiaaittlss 2t aaia £-l---ulsi- - Nona 



3.2.2.352 Su£tf.£&2f.3l2!« * ov_.pro c_cal I 



3.2.2.352.1 Py.£p.o.s.e.. ** Perform overloading resolution on a node of type 
• procedur e ca I I * 



3.2.2.352.2 A^y.jjp.iiaaS* - None 



3.2.2.352.3 lafiiSLOiaa-— -ISO. L3.Q.£U22£« ~ This sub p roar an is written in Ada. 



3.2.2. 352.4 Uie._ " This subprogram is not used recursively. 



3«2.2.352.5 Ne.s.isa £i&-ia« ovp_ctxt 



3 .2. 2.3 52. o Hfili iiSaS.HiS.£15.iS5.« - None 



3.2.2. 352.7 Ia.r.SL-i. &£££U£lS.D.SLL£S • - None 
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3.2.2.352.S S.U2aLaSL2,21 liliaiiiiY. • *" Outside Package. 

3.2.2. 352.9 EaQa£iao.£E.Laa*lULS.« ~ This subprogram is a Procedure. 

3.2.2.352.10 carJUai t&LSLZLSLLZLS. • " 

node : in cdm - ,type.c - .node - .ref ; — node to be resolved 

3.2.2.352.11 iia£r£iia£iS« - None 

3.2.2.352.12 Aia2Lili2Q!« - 

if MAINTENANCE option A> then 

PRINT "at'S cdm_tyoe.get_node_i d (node)* "node M > 
end if; 

overload (node* "any tyo« w ); 

if NQOE was resolved to an entry> then 

CHANGE Diana tree to an entry_call node> 
end i f ; 

3.2.2.352.13 2i22Q2iii£ "SSS&asa ££Q2£3iSd« - None 
3.2.2. 352. 14 txaffiaiaS, 21 SlLa£iaLS.£* " None 
3.2.2.353 Su.aaLaaL3.2i* " ov_entry 

3.2.2.353.1 PaLaaSS* *■ Perforin overloading resolution on a node of type 'entry* 

3.2.2. 35 3.2 As.2,y,2a£iaQ.£« ~ None 
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.> . 2 • 2. 35 3 . 3 IJ22iS2tD.iail22, L2D.£ii2.aS« ~ This subprogram is written in Ada. 

3.2.2.353.4 )J.S.2Q. *§.SmL2.Ll£.Ll* ~ This subprogram is not used recursively. 

3,2. 2. 353.5 N£2iSJl aiiUifi- " ovp.ctxt 

3. 2. 2. 353 .6 HaiJt S2£2S.Q£l&D.£,i.SS« None 

3.2.2-353.7 Iatafit QSP.e.nd.e.nc.iie.,5.. - None 

3.2.2.353.8 SubjiLaSLaOi iisi&illllv - Outside Package. 

3.2.2.353.9 Function/Proce.dure. - This subprogram is a Procedure. 

3.2.2.353.10 £20^1 p .sLL3i2££.£££ • " 

node : in cdai - .type.c - node..ref ; — node to be resolved 



3.2.2.353.11 £i£e. = e|.f.e.c.£ ( .s.. - None 



3.2.2.3 53.12 AJ.ao.£j.£h m. - 

if MAINTENANCE option A> then 

PRINT "at"* cdm.type .ge t.node.i d (node), w node w > 
end if; 

nt: = NODE type of as.dscr t_range_voi d> 
# case nt of 

when constrained *> 

RESOLVE as.dscrt_range.void> 
when range => 

overi'oadrng { AS.DS CRT.RA NGE_VOID>i "any type"); 
if TYPE of range is universal literal> then 

SET type to integer> 
end i f i 
when void => 
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return; 

end case; 



3.2.2.353.13 GLUSQaiiifi gfiliaa&l ££Q££sLiSd- -.None 



3.2.2. 353.14 £xaaaiaS. at St ructures. - None 



3.2.2.354 2il£Lfi£.ii2£ii£a« - ov_ent ry_ca I 



3.2.2.354.1 Zu.LQ.21S.* ~ Perform overloading resolution on a node of type 
' entry ca I I '* 



3.2.2. 354. 2 ASiiiO avians. - None 



3.2.2.354.3 laaiaiaaiaLLaa Li!12uaa2« - This subprogram is written in Ada. 



3.2.2.354.4 Us.e.a SaaLi.LSi.y.S.iY.* ~ This subprogram is not used recursively. 



3.2.2. 354,5 N£2,£e.g. &i£,hjj2« - ovp^ctxt 



3.2.2.354.5 HaSi Ci£aS,Q3£,Qa±£Ji« None 



3.2.2.3 54.7 Ia£aS.£. &£a£QdSJl£ia2* *" None 



3.2.2.354.3 IsiaaLaSLaa Visiaiiily.. - Outside Package. 
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3. 2 • 2. 354 • 9 &iiQ£ii2Q£ELa£££ly,£,S« ~ T his subprogram is a Procedure. 



3. 2. 2. 354 .10 £0X23.1 f.aL4(2SiS£S • ~ 

node : in cdm^type.c^node^r ef » — node to be resolved 



3. 2.2. 354, 11 £i&e.x£iia£Li£» ~ ^«n« 



3.2.2.354.12 ILaaLitH-ffi* ~ 

if MAINTENANCE option A> then 

PRINT **at M » cdm.type «ge t_node„.i d (node)* "node"> 
end if; 

— Tnis node will be here only if name resolution has uniquely 

— determined that as. name is an entry. 

for EACH actual parameter in as - param - assoc - s> loop 

overload (ACTUAL parameters TYPE of corresponding 
parameter>) J 

end loop; 



3.2.2.354.13 aia.SQ2s.llc. Me.ss.aaas £&QS.La£a4- - None 



3.2.2.354.14 ££aJ2B.i.££ Q.L Qjlil SiLUSLi.Ur.SS* " None 



3.2.2.355 S.y.&atp.sjraui. "* ov_delay 



3.2.2.355.1 PuLttSLS.£» " Perform overloading resolution on a node of type *delay* 



3.2.2.355.2 A.5,£UID£ii2.0.£« "* None 
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3.2.2.355.3 Ia2lSaSQ.ia.ii2Cl LdHilUiiafi' ~ This subprogran is written in Ada. 

3.2.2.355.4 liisa &a£!lf.£iY.alY.« - This subprogram is not used recursively. 

3.2.2.355.5 Ne,££e.fl Hi£JHQ« " ovp.ctxt 

3.2.2.355.6 HjsJ. fijSaa.QilailS.iai* - None 

3.2.2. 355.7 latasi aSfi£Q<2a£!SJ.a3 • - None 
3.2.2.355.3 2uJ2tt£a3Laai liSiaililY.* * Outside Package. 

3.2.2. 355.9 Functji on /Procedure. - This subprogram is a Procedure. 

3.2.2.355.10 £2£i2al £ar.affla£a£i« - 

node s in cd,T» -> type.c_node_ref » — node to be resolved 

3.2.2.355.11 ii£ez£Ll££lS,« - None 

3.2.2. 355.12 &i£0.r_j.£htn. - 

if MAINTENANCE option A> then 

PRINT "at"» cdm_tyoe.get_node - t a (node), M node"> 
end i f » 

overload (node? "duration"); 

3.2.2.355.13 2.U2Qa£ti£ M^s^aaJ Saoaiaiaa* - None 
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3.2.2.355.14 iiaiaiiiSS. 2t 5Ji£U G .£,U££l» ~ None 



3.2.2.356 £u2a r i22£sL2!« ~ ov_select cl 

/ 

3.2.2.356.1 Pj.£22s.e.. ~ Perform overloading resolution on a node of type 
* se I ec t_c I ause* 



3.2.2. 356.2 ASSUffittliafiS* ~ None 

3.2.2.356.3 l22i£{S£Q,JLaii.°.Q. LaaaUsLH!! • "* This subprogran is written in Ada 

3.2.2.356.4 S2i£<a. £££,Jl££iY.2J.Y.» *" This subprogram is used recursively* 
3.2.2. 356. 5 Naiisa" diiilia* ~" ovp_ctxt 

3* 2.2. 356,6 !2a£Jk QsaSfld£Iiaiaa» - None 

3.2.2. 356. 7 laxaal CLsaSLQiiaiiajLSS* - None 

3.2.2.356.8 Sii2fiL22LaQ! Visj.aiii.iY-* - Outside Package. 

3 .2. 2. 356. 9 EuQ2£iaa£P.£2.S§.a , y.££« This subprogram is a Procedure. 

3.2.2.356.10 tarsal P 3X3 2 £!££$.. ~ 

node : in cd;n_type. c_node_ref ; — node to be resolved 
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3.2.2. 356. 11 iio.e.-£f ~ None 



3.2.2.356.12 £132 £±££1 2 . - 

if MAINTENANCE option A> then 

PRINT "at'S cdm^tyoe.get.node.i d (node)* "node n > 
end if> 

overload ( AS_EXP_va I0> * boolean); 
RESOLVE as_stms.s> 



3.2.2.3 56.13 Q±aSQfl£liS. !!§lia2«l £*a£f.al22« - None 



3.2.2.356.14 tia.IBG.lSS. <2l £L3£a %%l M$,%M r ^5 • " None 



3.2.2. 357 £y.2.P.£22£.aiB« "* ov_s imp_r ep 



3.2.2.357.1 PjALfiLP.4£« " Perform overloading resolution on a node of tyoe 
1 s i mp I e_rep ' 



3.2.2.357.2 4L£2UE2£i2D.S« - None 



3.2.2.357.3 IloiS.lDSIllaiiS.Il L2.I12U.aaS' ~ This subprogram is written in Ada. 



3.2.2.357.4 USSSi Biec.yXsiy.e.JLx. " This subprogram is not used recursively. 



3.2.2.357.5 tiSiiea. Within. - ovp.ctxt 



3.2.2.357.6 Hfi5l Q£&£Qd£GS,i£l« ~ None 
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3.2.2. 357, 7 s2S220.iai2£iS5« *" None 



3.2.2.357.3 SiilifiLaaLaa y.i£iaLLUY.- - Outside Package. 



3.2.2.357.9 £aaaiia n .£££a£S.a'U£.£* * This subprogram is a Procedure. 



3.2.2.357.10 £fi£2ai iadiS - 

node : in cdm_type. c.no de.ref ; — node to be resolved 



3.2.2. 3*57.11 i,isLsz£iL&£ii» - None 



3.2.2.357.12 AjLaanUaa* - 

if MAINTENANCE option A> then 

PRINT w at M » cdm.typ e.get_node..i d (node)* w node"> 
end if; 

if aS_NAME is an attrioute> then 

— length specification 
overload (AS_EXP>» M any type"); 

if ATTRIBUTE is actual .del ta> then 
if AS-.EXP is not real> then 

ERROR 15031> 
end if» 

else 

if AS_EXP is not an integer type> then 

ERROR 15030> 
end if; 
end if; 

else 

— enumeration type representation 

overload <A5_EXP>, ARRAY of un ! ver sa I _ i n t eg-er > ) J 
end if; 



3.2.2.357.13 aiaaaaiiia Jiassaaas Saaaiaiad- - 

SEVERITY 

15031 £ real expression required 
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15030 E integer exoression requirad 



3.2.2.357.14 ^iaaalas. 21 SLall LLLUSlULSl- - None 



3.2.2.35b Sk£ia£jaa£a!a« ~ ov_aoply 



3.2.2.358.1 P slLB.aS.5t • "* Perform overloading resolution on a node of type 
• app I y * • 



3.2.2. 356.2 &S.£U2!&£i2,a£« - None 



3. 2. 2. 358 .3 Il21£3L£aiLaLL23> LiaaWJiaS. • " This subprogram is written in Ada. 



3. 2.2. 35b. <♦ Uiaa &££U£5.ilSJ-Jt» - This subprogram is not used recursively. 



3.2.2.356.5 ISsilsg. Hilaifl* • ovp.ctxt 



3.2.2.358.6 !2£a2ade.22i£S.« - None 



3.2.2.358.7 Iir^ai QsasaaaaaiSS • - None 



3.2.2.358.8 Snaaf-asxas Visiaiiily.- - Outside Package 



3.2.2.358.9 £y.a£ii2aZ.££2J*££UL£ • " This subprogram is a Procedure. 
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3.2.2. 356. J.0 taLSal £aL£!2&&3£&« " 

node : in cdm^type .c^node.p ef i — diana node to be resolved 
pass : in integer range 1..4I -— pass of overloading algorithm 
result, reo. : in cdm.t yoe • c„node.r ef J — tyoe of result required in 

context in which this node appears 
parau.avai I : out cdii^type. c_.node_.ref ? — seq of types which nay result 

after first pass 

resolved : out boolean; — set to false if the expression can't be 

resolved on the first two passes 



3.2. 2. 356. 11 SJLitflsfcLlftSlI. * ,N,on * 



3.2.2.3 56.12 iiafiCiiha. - 

overload (noae* "any type"); 

if NODE was resolved to an entry> then 

CHANGE Oiana node to an 'entry^cal I * node> 
e I se 

CHANGE Diana noae to a • procedure_ca I I * node> 
end if; 

INVOKE statistics recorder> 



3.2*2.35a.i3 2ia3D.as.ivX£ Jlaasaaai fiaasLaia-U - ^"e 



3.2.2. 356. 14 tiaffialSS. at QAlSL il£.U£iU£25- " None 



3.2.2.359 EaSJisiaa* " ovp_trav 



3.2.2.359.1 Piir.aa.S.s,* - Traverse Oiana nodes to oerforn overloading resolution. 



3.2.2.359.2 Nuaaar. ai Saaar-aaLaES • - *4 
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3 • I • Z • 359 . 3 Qa2a2dS0.2iSi 20. QiH^L ° ££il.22££ f.2f. " cdm.type 



3.2.2. 359 . ^ A,i<2i£i2Q,ai Deoendenqi es f^L ^aa*** * ovp.clas* ov p_ctx t « cdn.as 



3.2.2.359.5 Usisaas Saaailiaaiiaa- - 

package ovp.tfav is 

OVERVIEW OF THE OVERLOADING RESOLUTION FUNCTION 

— The overloading resolution function is organized as a recursive descent 

— traversal of the Diana tree. It consists of five packages* QVP_TRAV» 

— OVo.CTXT* OVP_EXPR* OVP.CLAS* and OVP_UTIL. 

— OVP^TRAV: 

— > The procedures of OVP^TRAV are used to traverse the portions of the 

— Oiana tree *hich do not involve expressions. Each procedure corresponds 

— to i Diana node type. The algorithm for the procedure contains one 

— pseudo-code statement for each structural attribute of the node tyoe. 

— For example* the procedure ov— function corresponds to the node tyoe 

— 'function* which has attributes: 

* as_param_s : paramos 

as.constrai ned.voi d : CONSTRA I N£0_VOI Q 

— The algoritnm for ov_function is 

— RESOLVE as.param.s> 

— RESOLVE as.constra i ned_voi d> 

— The first statement means* "invoke the procedure which handles nodes of 

— type paramos." The second means* "invoke the procedure which handles nodes 

— of the class CONSTRAINED. VOID." 

— OVP.CLAS: 

— The procedures of package 0VP_CLAS handle Oiana classes. There is one 

— procedure for each class (except for one-element classes) which consists 

— of one choice for each node type of the class. The pseudo-code 

— cor resoona i ng to this choice consists of a call to the procedure which 
handles that node type. 

— 0VP_CTXT: 

— Each procedure of the package OVP_CTXT handles a node type which has 

— an expression as one of its structural attributes. In general* the 

— node type will impose some context requirement on tne type required 
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for the exoressioni This context requirement is passed to tne 
orocedure Ov °.UT I l. OVERLOAD or OV P.JTIL .OV SRL3 AORNG which handle 
overloaaing of comolete expressions. Structural attributes which 
are not expressions are handled as in OVP.TRAV. For examole* 
OVP.COMD.CLS ♦ which handles nodes of tyoe * con d.c I 3use • » has the 
al 3or i thm: 

OVERLOAD <A5.EXP.V0ID>, "BOOLEAN")? 
RESOLVE as. stm_s> 

The first line means* "perform overloading resolution on the as.exp.void 
attribute* requiring a BOOLEAN result type." The second line means* 
"invoke the orocedure which handles nodes of type •stmts'". 



OVP.EXPR anq OVP.uTIL:. 

The procedures of the package OVP.EXPR correspond th Diana nodes which 
are oart of expressions. The procedure OV.FUNC.CALL * which is typical of 
the procedures in this package* has the same purpose as most of the 
published overloading resolution algorithms. That is* it 'describes the 
action to be taken during one "pass" for one function invocation. 
To perform a pass over an entire expression which consists of only fjnction 
calls* OV.F JNC.CALL is invoked recursively* with one invocation for each 
"pass". (Here, one pass is defined as a too-down traversal followed oy a 
bottom-up traversal of a complete expression.) To complete overloading 
resolution* four passes may be required (two which ignore use clauses* 
and two wnich take use clauses into account). The procedjrs 
OVP.UTIL. OVERLOAD (or QVP.UT IL. OVERLOADRNG ) acts as a driver for the 
four passes over a complete expression. 

In the published literature* other components of expressions 
(aggregates* literals* allocators* etc.) are not introduced into the 
overloading algorithms since then are said to be logically equivalent to 
function calls. This can lead to a simple implementation of 
overloading resolution if the internal representation makes all 
exoression components look like function calls. Since this is not tis 
case with Diana* the package QVP_£XPR contains a different orocedure for 
each node tyoe which can be oart of an expression. All of these procedures 
are meant to call each other recursively* and to oe driven by 
OVP.UTIL. OVERLOAD or OVP.UTIL. OVERLOADRNG . 
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3*2.2.359*6 ILLaafiLaiiaQ, £2^£» - None 



3.2.2.359.7 Eiafljalgs. al 5.i£.U£iU.r.eS» ~ None 



3*2.2.360 Iy.b.ai.2ar.asS • *" ov.derived 
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3.2.2.360.1 EliiLaaaa* ~ Perf arm overloading resolution on a node of typ 
1 der i ved ' • 



3 .2. 2 •360.2 ASlUi2fiii2QS« None 

3.2.2.360.3 IiaiSl£alali2£l LaO.ilUa.aa* - This subprogram is written in Ada 

3.2.2.360.4 Li§,eo; SaayXSiialY.* *" This subprogram is not used recursively, 
3.2.2. 360.5 iiSSiSa isli.ia.Ul* ~ ovp_trav 

3. 2. 2. 360. 6 tifiSi QaaaO.a'a&aiai* "* None 

3.2.2.360.7 Ianaai Qaaaoaaoaiai • - None 

3.2.2. 360.8 SiiaaLaaLSIS Y.iliaiiilX» - Outside Package. 

3.2.2.360.9 £iinat J.oiT.^Pracady.r e.. - This subprogram is a Procedure. 

3.2.2.360.10 c2£.2ai P.aLa2ala£2.» ~ 

node : in cdm^t y oe • c_node_r ef » node to be resolved. 

3.2.2. 360. 1L ^iaa=£liaali« - None 

3.2.2. 360.12 AlaaLiiD.2- - 
RESOLVE as cons tr a t ned> 
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3. 2.2. i6u. 13 siiiaQ2s.ii£ *£ii2.a*s ££0,££aLsa* - 
3. 2. 2,360. txaaalas al i2a£a Knu£lu££s« - None 

3« 2. 2*361 £aaa£&S£.a!3« ~ ov ..array 



3.2.2.361.1 £u£&fl5iL« - Perform overloading resolution on a node of type 
•array* • 



3.2.2. 361.2 A£SU!2fi£i2.!XS« ~ None 



3.2.2.361.3 IialSiSSaJtaiiSO. Laaauaaa* " This subprogram is written in Ada. 



3.2.2.361.4 U.klSL 8£SU£SjL y .&iY.« ~ This subprogram is not used recursively 



3.2.2.361.5 Hsii.fi *±i£lill« • ovp_trav 



3.2.2. 36 l.o HaSi Ql^e n de n£_j_a^. - None 



3.2.2. 3 61.7 TaraeJ, Q.g.SlS.Q.&S.Q.Q.jLS.S, ♦ — None 



3.2.2.361.3 luaacaSLa. 1 ! liJiaiiiiy.* ~ Outside Package. 



3.2.2.361.9 £UQ£,iiail£P.£a.SS.£U££» ~ T his subprogram is a Procedure. 
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3.2.2.361.10 F2£ 2S i °ata2£iS££« - 

node : in cdm^type • c.node^ref ; — node to be resolved. 

3.2.2.361.11 £io.e.-££f ££lS • ~ None 



3.2.2.361.12 AXa2r.ii.tiIS* ~ 

for EACH element of as_dscr t_range> loop 

overloadrng (LIST element>* "any tyoe">; 

if TYPE of list element is uni versa I _i nteger> then 

SET ■ to i nteger • > 
ena if; 

eno loop; 

RESOLVE as_dser t„range> 
RESOLVE as.constra i ned> 



3.2.2.361.13 iiaSQfialiS. fiS£Sil£iLS £S£l£IL3i£l2« ~ None 



3.2.2.3^1.14 ii^ikiil 2i Q.Sk'i HLU££.M£Si.« ~ None 



3.2.2.3S2 i^£L££r.ii'lt . - ov_dsc r tr n<? s 



3.2.2.362.1 °!i£Oi2I£« ~ Perform overloading resolution on a node of type 



• dscr t_r ang3_s ' . 



3.2.2.362.2 ii2ii2Q.iL2.QI • ~ None 



3.2.2.362.3 liaaiSffiSlliaiiiia LaaaiiSaa* ~ This subprogram is written in Ada 
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3. 2 • 2 • 362 • 4 Uss3 &££U£SiHiY • ~ This subr>rogra<n is not used recursively. 
3 • 2 . 2 . 3>i^ . :> iii£liQ« ~ ovp.t'rav 

3. 2.2.36 2 .6 Haii 12£2.sQde.n c.j.e.2. - None 

3.2.2.362.7 LiL-iSLl '2£ii2£,!ll£2±5i$ • -None 

3. 2. 2. 362. d Syb.ajra2f.aoi Vi T ? jft j„ t. ' fr v « " Outside Package* 

3.2.2. 362.9 £uQfiiia£lZ.£La£§.ilyiLS • " This subprogram is a Procedure. 

3. 2.2. 362. 10 £.££12 ski P ammeter s. - 

node : in cd.n - .type.c - noae_ref J — node to be resolved. 

3.2.2.362.11 iid.e. = £if.e.c.ts.. - None 

3.2.2.362.12 Alilfir.ii.fl21* - 

for EACH element of a s_ I i s t > loop 

RESOLVE 1 ist e Jement> 
end loop; 

3.2.2.362.13 aiasno.3.£±£ f!slSa2S5 £S.H§.La.%&&» - None 
3. 2.2. 3 62.1 A i£ affile. s, 21 I t£U£ly£ls . - None 
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3.2. 2. 363. 1 PyxaaiS* - Perform overloading resolution on a node of 
•record*. 



3.2.2.363.2 Ai£U!Sa£i£Q£« " None 

3.2.2.363.3 l!32i£<BSQ£aliflQ L£Q2ua2S« " This subprogram is written in Ada. 

3.2.2.363.4 liisa &fi£Uf.iilftli> "" This suborogram is not used recursively. 
3.2.2. 363.5 ^aslssi Hi tain* - ovp_trav 

3.2.2.363.6 Hjli iiaaSQaaaaiSS.' - None 

3.2.2.363.7 Ia£2S& Ui*2SQ2 , £2ii.§.£« None 

3.2.2. 363.8 2li2ar.a2I.li2 V i s t b I t, t -fry . - Outside Package. 

3.2.2.363.9 Eaoa£ian£P r o.£a dyjr & • ~ This subprogram is a Procedure. 

3.2.2.363.10 EaLIDal Z&L2.EL2.%.2iLl» " 

node : in cdm^type .c_node_r ef I node to be resolved. 

3.2.2.363.11 iia£=£ltsaii- - None 
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3.2.2.363.12 ^iaaLiiUffl* ~ 

for EACH element of as_list> loop 

RESOLVE I i st el ement> 
end loop; 



3.2. 2. 363. 13 iiaflQflSiiS £ Si £3.2 SI Gene,(;a ^ <J« - None 



3.2.2.363.14 siamalaa 2l IfcLUfilUXSl* - None 



3.2.2.364 Su{2P.£a2L£2i» "* ov.vars 



3.2.2.364.1 Pu£ao.£e. - Perform overloading resolution on a node of type 
' var_s ' . 



3.2.2.364.2 As.s.ii2fliiaiU« - None 



3.2.2.364.3 I'2&iS!nsa£a.LLaG. L2JH2.W&2J* • - This subprogram is written in Ada. 



3.2.2.364.4 UiSli Recur si ye. ly,. - This subprogram is not used recursively 



3.2.2. 364.5 Jie.5..££(i aULitliii. - ovp.tr av 



3.2.2.364.6 Hg.sJk fie.aaililSI2S.isS* ~* None 



3.2.2.364.7 latasl QsaSQllsnaiSS- - None 
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3.2.2.364.3 £k2aLa.2£2!Il iii±ai.JLi£.Y.« " Outside Package. 

3.2.2.364.9 £u,Q c -i.i2Q£££2££^U.£S» ~ This subprogram is a Procedure. 

3.2.2.364.10 £2imaJ. PaXa2S£S£5.« - 

node « in cdm.type.c.node.ref » — node to be resolved. 

3.2.2.364.11 LUe-££f. a c.£s.. - None 

3.2.2.364.12 AJLafl£iitl2!« ~ 

for EACH element of "as_list> loop 

RESOLVE i ist element> 
ena loop; 

3.2.2.364.13 213.20.25.1 JL£ Se.s,s.a.2£3 SSH^aiSa** None 

3.2.2.364.14 iX2!BaiSS 21 Q3i3L Ii£USiU£ei« - None 
3.2.2.365 Iuilli£a2r.221 • " ov_access 

3.2.2.365.1 Pii£aai£« " Perform overloading resolution on a node of type 
•access*. 

3.2.2. 365.2 A ££um£licjn s. • - None 

r 

3.2.2.365.3 l!22i£!D£ n .£5iti2Q. L2.Q.aU2.2£> This subprogram is written in Ada. 
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3.2.2.365.V 'iiSSi Eaa*LE.£i v .llY.« This suoprogran is not used recursively. 

3.2.2.365.5 HSIiSfl fcLLiGil!* ovp_ tf av 

3. 2 .2. 365.6 H a s.£ QaaafldSQfiiaS- - None 

3. 2.2. 365.7 Ia£aa£, Q g Q e H den gigs,. - None 

3.2.2. 365.3 SiA&GL£P.2Lam yj.&iajLLilY.« - Outside Package. 

3.2.2.365.9 ^uri£iiflO.£?-La5ai!lLa» ~ This subprogram is a Procedure. 

1. 2. 2. 365. 10 £o.o>al P aLaSaiaf-S, • - 

node s in cdm_ty pe • c.node^ref ; — node to be resolved. 

3.2.2.365.11 5,ijls-£tta£li- ~ None 

3.2.2.365.12 Aj.sa£.i£Qi3« - 
RESOLVE as^constr a i ned> 

3.2.2.365.13 aiaaaaaiia *a££aaas £aaai.aiad- - None 

3.2.2.365.14 ^aaalas at ajia l£Luaiu£aa« - None 
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3.2.2.366 £y > S > .2 r .a2L22l« - ov.stm^s 



3.2.2. 366.1 £ii£aaS£» ~ Per torn overloading resolution on a node of type 



3.2.2.36b.2 AjLJiASaiiailS' * None 

3.2. 2. 366.3 IJ22l£in£a£a£i..2Q L^g qyage. - This subprogram is written in fcda. 
3.2.2.36G.4 tii^ol S«c.y,£5iveXii» - This subprogram is used recursively* 

3.2.2.366.5 Ne.££e.a. HiiJliXl* " ovp_.tr av 

3.2.2.366.6 Hail 2sa£fi<l§.a£isS« • None 

3.2.2.366.7 lacas! £sasri£&£l£i£2 • - None 

3.2.2.366.8 Su£af.aa£2ai yiiiailii* • - Outside Package. 

3.2.2.366.9 &y > n££x2 n .££r.2.££S , Uf.£« ~ This subprogram is a Procedure. 

3.2.2.366.10 ^rame^ers . - 

node: in cdm_tyoe. c.no de_r ef ; — node to be resolved. 

3.2.2.366.11 £i£e f . - None 
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j.2.2.36o.l2 ^iaa^iihrn. - 

for EACH element of as_list > I ooo 

RES0LV£ list el ement> 
end loop; 



3.2.2.366.13 j2ia2Q2£li£ £2s.i2a&S &SUS£alfi»l« - None 



3.2.2.366.14 taamalas. 2L UJil lfc£U£iU£a£* - None 



3.2.2.367 Sii£ia£a££.a!D« ~ ov_if 



3.2.2.367.1 Eii£ttfi£e.. ~ Perforn overloading resolution on a node of type 'of*. 



3.2.2.367.2 A£.2LU2a£iaiL£« " None 



3.2.2.367.3 laalsaaaiaiiSQ M n auaoe. - This subprogram is written in Ada. 



3.2.2.367.4 Ussa" S£C.yL££iy.£j.X« ~ This subprogram is used recursively. 



3.2.2.367.5 kiitlin- - ovp.trav 



3.2.2.367.6 Has£ fisa£Qd£I2£jL£S« - None 



3.2.2.367.7 Ia£3£i QsaSQiiSI2S.iSl» None 
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3.2.2.367.3 £li2££0.a£2 m iiSiaii-Lil • *" Outside Package. 

3. 2. 2. 367.9 E;iacXi 0 .Q.£££2£.£,£iU££« ~ This suoorogram is a Procedure. 

3.2.2.367.10 £2fJB3l Z&L3i>!R&L&Ll* ~ 

node : in cam^type .c.node.r ef » — node to be resolved. 

3.2.2.367.11 LLa.e = P£T - None 

3.2.2.367.12 Ai2g.j- > jLL£l!3» - 

for EACH element of as_list> loop 

RESOLVE list element> 
end loop; 

3.2.2.367.13 QtiaaQflSlifi £S££a2S.s SfiQ«£ais4« - None 

3.2.2.367.14 £$ainaJLfia 2£ Sl£U£JU££l« - None 
3.2.2.368 £y.22£,o.2£<£2l« " ov_loop 

3.2.2.368.1 £iA£o.p.s.e. - Perfom overloading resolution on a node of type 'loop 1 . 
3.2.2. 368.2 £s.s,u.ajpJiJ,o.ns.. - None 

3.2.2.368.3 Iaai£!2£QjLa]LL2Q. t.an ggage.- - This subprogram is written in Ada. 
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3.2.2. 360. 4 UiSi i* c .UL5JLl3.1Z» ~ This subprogra-n is used recursively. 

3.2.2.368.5 NfiliSfl MiitliQ* " ovp^trav 

3.2.2. 368 « 6 tiasi Qsaaaa^Laaias* ™ None 

3.2.2.363.7 Ia£2S.i QtiasniS.D.ai.S.l • "* None 

3.2.2.368.3 2,y.b.a£a2£.12l V [si ft VI jtv . - Outside Package. 

3.2.2.368.*) function /Procedure. - This subprogram is a Procedure. 

3.2.2.366.10 £q,LH3.L 2.a£il2&£££S • ~ 

node : in cdro_type. c.node^ref ; — node to be resolved. 

3.2.2.368.11 iiis-ilf.e.als.. - None 

3.2.2.368.12 AJ.aaU.laa- ~ 

RESOLVE as_i terat ion.> 
RESOLVE as.stm.s.> 

3.2.2.368.13 iiaSQasiic. *S.s.s.&a£S. ££Q*£aiad« - ^one 

3.2.2.366.14 txafflaiaS. ai aa£a LL£UaiU£££« - None 
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3.2.2.369 Eu!l2L22.La3I« "* ov_while 



3.2.2.369.1 SLuH.U2.S5.* " Perform overloading resolution on a node of type 
'while*. 



3. 2. 2*369 .2 Ajjsy.iaaifci.ao.i* ~ None 

3.2.2. 369.3 IjifliSfflSQiSiiflQ LaQ.2uaa£« ~ This subprogram is written in Ada 

3.2.2.369.4 ^S.SL\LLlLl $.Ll» ~ This suborogram is not used recursiveiy. 

3.2.2. 369.5 £Je > s..Lssi Wj.inJ.fi. - ovp_trav 
3*2.2. 369.6 tlaSi £L£fl£G2 , £. n .£,i£.;5> " None 
3.2.2.369.7 13X22.1 Q5J2SQ4SGSLiS5« ~ None 
3.2.2.369.3 lsA2Jfir.iiSf.aa \ I, § t ft 1 .. 1 1 \ X « - Outside Package. 
3.2.2.369.9 EuHS.i.iP.D.ZELSliSliyLLS • " This subprogram is a Procedure. 
3.2.2. 369. 10 £2L2SLJl P .3 r A ^tX ? r _? • " 

node : in cdm^type • c_node_ref » — node to be resolved. 

3.2.2.369.11 2.id 1 s = £f,f ( e.£ls. - None 
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3. 2. 2. 369.1? Alaatitaa* ~ 

□V£Rl3A0 (AS.EXP), boolean)? 



3. 2,2. 369,13 QUaaaaiiia Sasiaaas. £aaar.aiaa^ - Hon * 



3.2.2,369.14 tiaaalas. at Q.ai2L Structures, - None 



3.2.2.370 5.y,b.o.£.aar.am. - ov_block 



3.2.2.370,1 ?»u,£P.P.S£« ~ Perform overloading resolution on a node of type 
•block*. 



3.2.2.370.2 iSSUaiaiiaHi* ~ None 



3.2.2.370.3 IjaXSSSHiaJLLSO. LlO.ay.aaS • " This subprogram is written in Ada 



3,2,2.370,4. Us,«a ££S.u.jis.ive.ly.« - This subprogram is used recursively. 



3,2.2.370,5 Nfiiiag *i£hiO.« " ovp_trav 



3, 2.2.3 70. 6 Hfls.£ P.aaaQ2£nc.ias,. - None 



3.2.2.370.7 larasi Qaaaildafiaiai' - None 



3.2.2.370,8 Sy.2flLaaf.affl Y is i b , > , I j,ty . - Outside Package. 
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3.2.2.37u.9 «,U0.£,ii2Q,£,£ r .2S.g.ilU££« ~ This su&orograni is a Procedure, 

3. 2. 2.370 .10 £2£3ai P.2f.a2£i£££« " 

nodes in cdai.type • c_n ode_re f ; node to be resolved, 

3.2.2.370.11 U4a=£Iimi. - ^one 



3.2.2. 370.12 Aiafltiihrji. - 

RESOLVE as - iteoi.s> 
RESOLVE as.st!»).s> 
RESOLVE as.a I ter nat i ve.s> 



3.2.2.3 70.13 aiaaQaiiiff. *e.3.s.aae.j& £*ae.£a,ie.a. - None 

3.2.2.370.14 fcaamaias at aaia £i£uaia££s« - 

None 

3.2.2.371 s.y.aa£as£22« * ov.subo.dci 



3.2.2.371.1 P.a£aasa« Perform overloading resolution on a node of type 
* subpr ogr am_dcc I 



3.2.2.371.2 As.s.uaaiiafl^* ~ None 



3.2.2.371.3 laaisaaaiaiiaa LaaauaaS* ~ This subprogram is written in Ada. 
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3.2.2. 371.4 U_e.a •5.£..LS±Y.-iY.» " This suoprogran is used recursively. 

3.2.2.371.5 aiiilin. - ovp.trav 

3.2.2.371.6 tlasi '22.ZSLQ.3.2.Q.S.L11 • ~ None 

3.2.2.371.7 larval UafiaQ^aaaiai- - None 

3.2.2.371.8 __b,p.r. aa r.aai y.±-ikiii-_> - Outside Package. 

3.2.2.371.9 Function/Proced ur e. - This suborogram is a Procedure. 

3.2.2.371.10 Fo,£j2§i £.££32 - 

node: in cdm_type.c_node.ref; — node to be resolved. 

3.2.2.371.11 SLi4e.z£It£C_is. - Mone 

3.2.2.371.12 AiaflLii-l' " 
RESOLVE as_header> 

3.2.2.371.13 .iaanfl-tia .e.££2£SS £eQ££3-A-- - *»one 

3.2.2.371.14 ..aaaiai ai aaia I-x.u£iii£as* - None 
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3.2.2. J72 iu!22f.2.2£2.!» " ov.procedure x 



3.2.2.372.1 £liLp.2i£« - Perform overloading resolution on a node • of type 
• procedure 1 • 



3.2.2.372.2 ££SUiaJLL2D.5- — None 

3.2.2.3?2.3 I-S2XSI£ai^ii.fiO. LsLEiaUslSfi* This subprogram is written in Ada 

3.2.2. 372.4 Uied, i£S,y.tSXie.ix* "~ This subprogram is not used recursively. 

3.2.2. 372.5 ^SSlSSi iiULLfl* "* ovp_trav 

3.2.2. 372«b H&££, Q£p.e.ndj»£c.ie^ > . None 

3.2.2.3 72.7 Ia.r_ae.fc, Qe.ae,nd,e,n,£j.e.s. - None 

3.2.2.372.8 Su.bjLLP.2I.ilfl! V j.sJLbjLii£y. . - Outside Package. 

3.2.2.372.9 £,sinc.i,x2D.Z.£r.££S.ilii]lS.» - This subprogram is a Procedure. 

3.2.2.372.10 FaLSal PaLa2Si^£S« - 

node: in cdm.type • c.node.r e f ; ~ node to be resolved. 

3.2.2.372.11 iiaSzEIlaiiiS • ~ None 
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3.2.2. J 72. 12 jiisaciiUni* 
kESOLVfc as_oaraiTi_s> 



3. 2 .2. 372. 13 iiaaQflitlS. JiSSiaaaS SaaSLalaa- - None 



3.2.2.372,14 fesaisalas. ai aaia ilLuaiutss- - None 



3.2.2.373 Siifi.aCfl.2Caa* ~ ov_function 



3.2.2.373.1 Pijr Perform overloading resolution on a node of type 
.'function'. 



3.2.2. 373.2 AiSUSiBliaES* " None 



3.2.2.373.3 IiBfl.iSiattia.LLp. a LaQ.£UaSL£* • This subprogram is written in Ada 



3.2.2.373.4 Llseo. &aaU£.SiY.aLy.« ~ This subprogram is not used recursively 



3.2.2.373.5 Qasiasl Hiiilia • - ovp^trav 



3.2.2.373.6 Has! aaaaadaaaias. • - None 



3.2.2.373.7 laxaai aaaaajiaaaias* - None 



3.2.2.373.3 £yL&a£aS£.aia VisiailiiL* • " Outside Package. 
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3.2.2. 373.9 S.iiQS.iiP.Q^.iiiiaSS.ilJiL*' ~ This subprogram is a Procedure. 

3.2. 2. 373.10 £o£.ffiai £LslLa2-.£..£f.5L» " 

node: in cdm.type.c_node_.ref; — node to be resolved* 

3.2.2.373.11 Iia£=£Ite.£-.£« - None 



3.2.2.373.12 .laaciiiia* - 

RE SOLVE as.par'am.s> 

RESOLVE as_const ra i ned_vo i d> 



3.2. 2. 373. 13 lUaaaa&tifi £S2S.ii2£S £sa££-..-£.-* - None 



3.2.2.373.14 £xajBp.J.e.s. at Qj^a ££LU C .1.«X.&1« - None 



3.2.2.374 SUsLfitaSLayi* - ov^param^s 



3.2.2.374.1 Puiaass. - Perform overloading resolution on a node of type 
1 param.s 1 • 



3.2.2*374.2 „.s.s.y.fna«J.gn2* " None. 



3.2.2.374.3 i,em<»n^a^i on L2.Iia-.aaS* This subprogram is written in Ada 



3.2.2.374.4 Ll5.e.a &aau.£,S.iy_§.iY.« ~ This subprogram is not used recursively. 
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3.2.2.37^.3 iiiSlsa iiitliQ* - ovp_trav 



3.2.2.374.6 Ho.s.£ Q.aaS.fldaO.ai.SS,* ~ None 

3.2. 2. 374. 7 Ii£a&i QlSaSflilaaSliSi* - None 

3.2.2.374.3 Suaaf.a2La2l liiiaililX.* ~ Outside Package. 

3.2.2.374.9 £,U n .aliaO.Zf.£aaa3UL£» ~ This suoprogram is a Procedure. 

3.2.2.374.10 Eacaai Par-^ai^Li- - 

nodes in cdm_t ype • c.node.r e f » — node to oe resolved. 

3.2.2.374.11 Sid^-fittafiis. - None 

3.2.2.374.12 AiaaLiitH* ~ 

for EACH element of as_!ist> loop 

RESOLVE | Ut e I ement> 
end loop; 

3.2.2.374.13 uiasnaaiia iia&iaa&s fisasnai^- - None 

3.2.2.374.14 E^ajnaias. at aala llr.uai.ULSS* - None 
3.2.2.375 S.uaa£a2£.a2L« ~ ov_in_out 
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3.2.2.375. L PjiLaaiS* - Perfom overloading resolution on a node of type 
* i n_ou t ' • 



3.2.2. 375.2 As.s.u2aJLLaQ5» - None 

3.2.2. 375.3 Ii2QlaiaaaJmi2!l Laa.2ua.S£« " This subprogram is written in Ada. 

3.2.2.375.4 Uasg. Recu.r s i ye I y.« - This subprogram is not used recursively. 

3.2.2.375.5 Ne.2i.si Milk i". • ~ ovp.trav 

3.2.2. 375.6 Ha&i QSfiSflilaD.a.UUL* ~ None 

3.2.2.375.7 TaxaaL Q'e.a&Iia'S.P.ai.ai* - None 

3.2.2.375.8 SuaataSLaa YJ.SiaiJ.iJLY.* ~ Outside Package. 

3.2.2. 375.9 ELanai i2Q££.£2 c .aa > y.L£* ~ This subprogram is a Procedure. 

3.2.2.375.10 Farjsai 2. anas * 

node: in cdm.type • c.node.r ef ; node to be resolved. 

3.2.2.375.11 £iae.z££f e.al£« - None 

3.2.2.375.12 AiaaLiinm* - 

RESOLVE as.tyoe.spcc> 
RESOLVE as_exp_void> 
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3.2.2.375.13 iiaaaas.iis *£sssL2s.s fiaastaiai* - ^one 



3.2.2.375.14 .taaJDaifiS, fl £ itLUfitUtaa* " None 



3.2.2.376 luHft£aaLasn« - ov.out 



3.2.2.376.1 £j.£.d.22.£. - Perf om overloading resolution on a node of type 'out' 



3.2.2. 376.2 iS,SU2fliLia!15« ~ None 



3. 2.2.376.3 IjalSfflSQiaiiflQ, L2.Q.2y.a3£> " This subprogram is written in Ada. 



3«2.2.37o«4 UiSii Rec'^r sj ve I y. - This subprogram is not used recursively 



3.2.2. 376.5 i{££l5<2 StilHifl* - ovp_ tr a v 



3 .2. 2 .376 .6 Hail Qaa£QdS.ES,iSS« ~ None 



3.2.2.376.7 Isif.SS.Ji, Q£a£Q3£Q,ai£S* "~ None 



3. 2. 2. 376. d Su.2fiLa2£asi Y.i£iajLLiiY.» - Outside Package.. 



3.2.2.376.9 Fijncti, gn/Procedure. - This subprogram is a Procedure. 



3-839 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Compiler *acn i ne-I ndeoenden t Section C5 Specification CR-C? -0059-C84 
1 Nov?i»ber H33 

3.2.2.3 76.10 tQ.L2.siL ? ar ameters. - 

node: in cdiU„.type • c_node_re f ; — node to be resolved. 
3.2. 2. 37b. 11 iia.Sz£iIaSIi5» ' • None 

3.2.2. 37b. 12 Uaaciiiim- - 

KESOLVE as -o tyoe - ,spcc> 

3.2.2.376.13 aiaSQOJLiiS. *S£Sa3£.£ ££nSL2l«4* - None 

3.2.2.376.14 fcxafflftlSS. Si Qlia S£lU£iU£££« - None 
3.2.2.377 Sy.tlfl£P.2£S21» "* ov_subp_body 

3.2.2.377.1 £iiI.o.o.se.. - Perfor.ii overloading resolution on a node of type 
• subpr ogram„.oody • • 

3. 2 .2. 377. 2 £s.£yjnP.£J.2 > D.S« - None 

3.2.2.377.3 Ii2fil£2en£siijL2n Lao.3,UII£L£« " This subprogram is written in Ada. 

3.2.2.377.4 £&£.UL£2.iy.&l.£« " This subprogram is used recursively. 

3.2.2.377.5 Ne.s.£,e.Sl ^i-LiLLQ.* *" ovp_trav 
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3.2.2. 377. o &£&£Qd£. n .£i&2« " None 



3.2.2.377.7 Iansst Q£a£a4£2S±££ • - None 

3.2. 2.377. b £u&a£9.2£ai liii2.iiii^» - Outside Package. 

3.2.2.377.9 gunct i on /Procedure . - This subprogram is a Procedure- 

3.2.2.377.10 £2L£&1 La.LaLfH5.L3.Ll* "* 

node: in cdm.t ype • c.node.r e f J — node to De resolved. 

3.2.2.377.11 iU&=£tt&£li. - None 

3.2.2.377.12 alaaciiHa* - 

RESOLVE as.heaaer> 
RESOLVE as.biock.stuo> 

3.2.2.377.13 &iaSQa£i.U £«a££ai£fl« " None 
3.2.2.377.14. Lx2E2.i£I 2t 1±LU,Q,LUL2.1» - None 
3.2.2.37a ly,g > o.£2a£10l« ~ ov.pack.dcl 



3.2.2.378.1 ?.U£aaSS.» ~ Perform overloading resolution on a node of type 
• package. dec! 1 • 
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i • 2 .2. 37b • I As.£u.2Q.£i2, n .5« ~ None 



3.2.2.J78.3 I.aai£llS.Q,£aiiaQ. Laaauaas* ~ This subprogran is written in Ada. 

3.2.2.378.^ Ussol &e.c.uxsixall» ~ This subprogram is used recursively. 

3.2.2. 378.5 Nfilisa aiitlin. - ovp.tr a v 

3.2.2.378.6 tlaSi Qe.ag.Qjle.nc.ie.s,. - None 

3.2.2.378.7 lataat Qe.o.e.n£e.n cj.e.1 . - None 

3.2.2.378.8 S.u£p.r aaLlQi y Is 'Pi \\.Vt • " Outside Package. 

3.2.2.378.9 EaO.cJi.iaQ^f.tafiaa' SALS • • This subprogram is a Procedure. 

3.2.2.373.10 ELarjaal EaLiaala£i» - 

node- in cdrn.type.c_node.ref; — node to be resolved. 

3.2.2.378.11 Eiasziltsaii* ~ None 

3.2.2.378.12 AXaaf-iiQin. - 
RESOLVE as.pacKage.def > 
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3.2.2. 37b, 13 "LUsaaiLiS *&SS.aa&l - None 



3.2.2.378.14 £iaaalai at !2a£a SiLuaiunaa* - None 



3.2.2.379 SjiJuir aataa* - ov_pack_spec 



3.2.2.379.1 Eiiiaaia* " Perform overloading resolution on a node of type 
• package_spec 1 . 



3.2.2.379.2 iiSUfflaiiafll* " None 



3.2.2.379.3 IjaiSSaaiaJLLaQ Liaauaa£« ~ This subprogram is written in Ada. 



3.2.2.379.4 Uisa* fiftSLU£iiXftiJt« *" This subprogram is used recursively. 



3.2.2.379.5 Ne.s.&sa w | ^h [n. - ovp.trav 



3.2.2.379.6 tiasi Qaaa&aaaaiai* ~ None 



3.2.2.379.7 IlL2£i Q£a£Q£aQaiai • "* None 



3.2.2.379.8 S^bp.r.o.sxaja Y is, tail 1%X • - Outside Package. 



3.2.2.379.9 FLunaiiaa^fLl.aaaa'y.r.S,' - This subprogram is a Procedure. 
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3. 2. 2.379. 10 =o,r,22Li 2.aL;iEal£r»£.« ~ 

nodei in cdm.t ype • c.node.re f ; — node to be resolved. 
3.2.2.379. 11 iia.s-£JLIe.£is. - None 



3.2.2.379.12 iia^LiitllS' * 

RESOLVE as_decl_s> 
RESOLVE as_dec I _r ep_s> 



3.2.2.379.13 2.U2Q2S.£J.2 «aaiaa&5 SSQSJialsa* ~ ^one 



3.2.2.379.14 £iajsaiS5. 2t *Ul2 £Hii$.£U£££« " None 



3.2.2.380 5,u.!22£2S£2!a» ~ ov^decl^s 



3.2.2.380.1 Py.£22SS« - Perform overloading resolution on a node of type 
1 dec !_s ' • 



3.2.2. 330.2 As.iU2iaii2.llS' " None 



3.2.2.380.3 Il2i£31£aiati2Q l^an gygge . - This subprogram is written in Ada. 



3.2.2.380.4 Llasa" Rftc.UCSi,Y.$l*» This subprogram is used recursively. 



3.2.2.380.5 Ngs.i52 MllllLQ* - ovp_trav 
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3.2.2.3 30.6 i2e«£Q__2.£j.£l« ~ None 



3.2.2. 330. 7 iaxaai QtsasmSaciLLai' ~ None 

3.2.2. 380.S $.._o.£O.S£a_. y.ili&iJLL_y.« - Outside Package. 
3.2.2.3S0.9 j.2Q,L f.£.o.££,_yX£ • ~ This subprogram is a Procedure. 

3.2.2.3 80.10 __£J2.1 P^ar ^we^cs » ~ 

node: in cdm_type.c_node._ref; — • node to 0e resolved. 
3.2.2.380. 1L .iis-pL-aSls.. - None 

3.2.2. 330. 12 .iaflLlLtia* - 

for EACH element of as_list> loop 

RE SOL V£ 1 ist e lement> 
end loop; 

3.2.2.380.13 .iaaaaaiis ___«_j;&5 fisnsialsd- - None 

3. 2. 2. 380. 14 ..amalSS 2l S-ia SJtLUfi3LU££&« - None 
3.2.2.331 Sj___£aa£a.rn. - ov_dc I _r ep_s 



3.2.2.381.1 EuiLP.o.se.. - Perform overloading resolution on a node of type 
' dec I _ r ep_s 1 • 
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3.2.2. 381.2 iasuaaiiaai* None 



3. 2.2. 331.3 I2alsasaiaii50. Lang ua ge* - This subprogram is written in Ada. 

3.2.2.381.4 Uiafl Es.c.UXSiial^* " This subprogram is used recursively. 

3.2.2.381.5 ^SiiSfll aii!ljL0.» ~ ovp_trav 

3.2.2.381.6 ■laii i2e.o.e.Q,dj£nc.j.e..3.. - None 

3.2.2.381.7 filSflaa4aO,£i£S« - None 

3.2.2.381.8 3sa££L22I.3JT| V iliaj,j.j.£y. . - Outside Package. 

3.2.2.331.9 EuQ£&±2a££L&££lyXS.« ~ This subprogram is a Procedure. 

3.2.2.331.10 EaLisai Pamsais£s.« ~ 

node: in cdm^type • c_node_r e f ? — node to be resolved. 

3.2.2.381.11 S.i£l£z£.L! - None 

3.2.2.381.12 A.laa£iXa!!l« - 

for EACH element of as_.l t st> loop 

RESOLVE list element> 
end loop; 



3-846 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Co-no il.ar Machine-Independent Section C5 Specification CR-CP -0059-C 84 

1 Novenoer 1983 

3.2.2.381.13 iiasQo.s.tis -S,S2.sL£±S Generated. - None 



3.2.2.331.14 dxaaalai at aata 2i£U£lur.ai« - None 



3.2.2.382 Suaur aSLilia* ~ ov_pack_body 



3.2.2.382.1 P»U£22S2« Perform overloading resolution on a node of type 
• package^body • • 



3 .2.2. 38 2.2 AiSU2iaiiaaS« " None 



3*2.2.382.3 laalsasHiaJULfill Laaauaaa* ~ This subprogram is written in Ada 



3.2«2.382.4 Uiefl" iiac.Uf.Siv §.!*.• " This subprogran is used recursively. 



3.2.2.382.5 N.e.s.i.eo. MiliLLG- - ovp.trav 



3.2.2.332.6 HaSi £££211 <2£ 12 - None 



3.2.2.382.7 laLSSi QaaSQSlStlloJiS^. - None 



3.2.2.382.3 2ufla£2SXa»a iiSiaJLLiiy.* * Outside Package. 



3.2.2. 382.9 Enact ion/ Proced ure . - This subprogram is a Procedure 
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3.2.2. 332.10 c,2£2ai idcaaalsii* ~ 

node: in cdm^t ype • c.node.r ef » — node to be resolved. 



3.2.2.332.11 Sias-gif - None 

3.2.2.382.12 A.J.q.p.Li&h.m,. - 
RESOLVE as.bl ock_stub> 

3.2.2.332.13 2ia.2Q2S.iic. S&QSLL^lSL^ - None 
3. 2. 2. 332. LA £ia.!22lss. Q^ia l£ r .U£lUf.££* "* None 
3.2.2.38 3 Sy,bp.£p.a£a.ai« - ov^accept 



3.2.2.383.1 fLiiLfiiasa* " Perform overloading resolution on a node of type 
• acceo t * • 



3.2.2. 383.2 iiS.y.ma,LL2.n,s.. None 



3.2.2. 33 3.3 Xa2.lsaa0.iai.i2a La0.2Uaa£« ~ This subprogran is written in Ada. 



3.2.2.333.4 liS.e.3. £e.c.u.£S.i.y.e.J.x» - This subprogram is not used recursively 



3.2.2.383.5 Ne.s.i.e.d HiJLD.il!* ovp_trav 
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3.2.2.3*3.6 iiasi '^SaaililSQiiaS* "* None 



3.2.2.383.7 Iaxa£i &£&£ n .£2£ n .£i££ • - None 

3.2. 2*333.3 S.y.isaLaaC.aiH iiSi&iiilZ- - Outside Package. 

3*2.2.383.9 &UQfi&i£Q£££a££lU££« " This subprogram is a Procedure, 

3.2.2.383.10 Fo £2sii °^La2Sl£I.5. • - 

node: in cdm.type .c.node.r ef ; — node to be resolved. 

3.2.2.383.11 S Ide-q f f e cfr s . - None 

3.2.2.383.12 AJ.aa£±i&!!l« - 

RESOLVE as.name> 
RESOLVE as_param_s> 
RESOLVE as.stm.s> 

3.2.2.38 3.13 QiasQa££i£ flSiSaasi ££a££a£££*- - None 
3.2.2.383.14 £xaj}al£5 at £££U£JLU£££* - None 

3.2.2.384 £u2a£a2£a!2« " ov_sel ect 



3.2.2.384.1 Pii£aaS.2.« ~ Perform overloading resolution on a node of type 
* se I ec t • . 



3-849 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document . " 



ALS Comoiler Mach i n e-I ndeo enaen t Section C5 Specification C3-CP-0059-C84 
i No ve<nber v 19 3 3 

3.2.2.3 S <4.2 i£S.U2lE.£.i2.£L£» * 



3.2.2. 384.3 laalSiaaaJLaiiaa L^aauaaS* ~ This subprogram is written in Ada. 

3.2.2. 384.4 Usgy. SSSLULSiiall* *" This subprogram is used recursively. 

3.2.2.384.5 iissllU iii&JLD.* - ovp_.tr av 

3.2.2.384.0 Siaii Usaafldaaaiai* - None 

3.2.2.384.7 latest itefiSnOSaaiSS • - None 

3.2.2.384.8 SuaaL9.2f.aiQI lilikilliLX • • Outside Package. 

3.2.2. 384.9 £uflSLiiari££L2£aili4£S>« "* This subprogram is a Procedure. 

3.2.2.384.10 2.ar.aiasi.sLS« - 

node: in cdm_type.c_node_ref ; — node to be resolved. 



3.2.2.384.11 S.iiie.-£X.tS£li« ~ None 

3.2.2.384.12 A^XaaLiinnj. - 

GET as_cond_c I ause_s> 

for EACH element of as - list> loop 

RESOLVE list el ement> 
end loop; 

RESOLVE as.stm.s> 
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3.2.2.33 4.13 2il2affl&£i£ !ISSia2SS ££D.£f.2l££« ~ ^one 
3.2.2.384.14 tiaiHalSS 2l Q3la SlE!i£iUf.l£« - None 
3*2 .2. 385 2liiJip.r,o.aL2ffl» - o v^cond^ent r 



3.2.2.385.1 £u£ft2a£« ~ Perform overloading resolution on a node of type 
*cond_entry • • 



3.2.2.3S5.2 lSLSU2ttti.i2.lll* ~ None 



3.2.2.38S.3 Iiaalsasili^iiSQ LaH3Ua££« " This subprogram is written in Ada. 



3.2.2. 385.4 Uiisl Sa£lir.£LY.2.lY.» • This subprogram is used recursively. 



3.2T2.385.5 N£££ecl ati^hin. - ovp.tr a v 



3.2.2.385.6 Hflii, Qeaendenc i es . - None 



3. 2. 2. 385 .7 Ia.£S££ UsaS.Q^£a£ifii» *" None 



3.2.2.385.8 5uap.L2aL2IS Y t s i b t I i t;v . - Outside Package. 



3.2.2.385.9 P.UQ£.£.i2Q£P-£Q.S££lU r -S.« ~ This suoprogram is a Procedure. 
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3. 2. 2.3 Si. 10 £2L2ai tLaLasaiSf-S. • " 

node: in cdm - ,type#c - node - ,ref ; — node to be resolved, 
i. 2. 2. 3 85. 11 mt£ = ££f.e.c.£s.. - None 



3.2.2. 385.12 A«La2£.L&i2!2« ~ 

RESOLVE as_stm_si> 
KESOLVE as_stm_s2> 



3.2.2.38 5.13 jUaaQ2iti£ £fil&2afi£ ££n££i£eci. - None 



3.2.2.335.14 tiaiSaiSS. ALL Q.^3L ~ None 



3.2.2. 386 ly.fiLJ2.il 2a £.3,2. " ov_t i me d.en t 



3.2.2.336.1 EuLaasa* ~ Perform overloading resolution on a node of type 
* t imed_entry * • 



3.2.2. 386.2 Asj£yj»aiio.n.s. - None 



3.2. 2.386.3 l2aiis!2£2.£.a.LL2a La.Iia.U2.aS* ~ This subprogram is written in Ada 



3.2.2. 386.4 Used, Escj±£s.ji.ve.i.,y.. - This subprogram Is used recursively. 



3.2.2.386.5 £i£2J.£d, Miiilill* — ovp.trav 
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3.2.2. 3<?6.b 



USiSi £L£2£Ell£ n .£i.£S,« ~ None 



3.2.2.386.7 



UtSaaadSQai«l« - None 



3.2.2.386.8 



iiifitaLaatafla VjUiaiiiiY.- - Outside Package. 



3.2.2.386.9 



Eu2£ii.i2a£E.ia.£££u££« • This subprogram is a Procedure. 



3.2.2.386.IO L2L2£l £ilLil,n!£lL££S • 



node: in cdm^tyoe.c^node^ref ; — node to be resolved. 
3. 2.2. 336.11 Si^e. = £tla£i5« - None 

3.2.2.386.12 A.is2£±lil!n. ~ 

RESOLVE as.stm.sl> 
kESOLVE as_stm.s2> 

3.2.2.386.13 i2.USQ2££i£ 2 ££2232.2 ££a££2i£4» - None 

3.2.2.386.14 feiaSfiiSi SI £Ul2. £££U££H£eS« - None 
3.2.2.387 £y > b_af.o.3£am. ~ ov.abort 

3.2.2.387.1 Eu£fifls.e. - Perform overloading resolution on a node of type 
•abort'. 
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3.2.2.387.2 l££ii2££±£Q.§. ~ None 



3.2.2.387.3 l22l£!aSu.£a£jL2 n . L^aSUlSS* *" This subprogram is written in Ada. 

3.2.2.387.4 Us,ssl &£&ur.li&&iX« "* T his subprogram is not used recursively. 

3.2.2.387.5 iliitlifl« - ovp.trav 

3.2.2.337.6 12 S.iiL2,» - None 

3.2.2.337.7 Iar2§& QsaSQStSHiiJLSi* " None 

3. 2. 2.387. 6 2yJ2£L22La!a Viiiklliil • - Outside Package. 

3.2.2.387.9 Pun-qfc ) on/ Procedure » - This subprogram is a Procedure. 

3.2.2.387.10 £2£iaai 2.3C.a2Si.S£l • ■ • 

node: in cdm^type. c.node.ref ; — • node to be resolved. 

3.2.2.387.11 iiis = £if e.c,il« - None 

3.2.2.387.12 AJ.ao.£.UDJ2« ~ 
RESOLVE as„na/ne.as> 
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3.2.2.387.13 QisL2D.aS.iic. ££2£2La£5 £*n - 

3.2.2. 337. 14 £lilDaie.«t ai £2aia 2ir_U£iy.££5,« " None 
3.2.2.38a SuafiLaacaa* " ov_praema_s 



3-2.2.388.1 EuLaaSSL* ~ Perform overloading resolution on a node of type 
' pragma^s'. 



3.2.2. 3 3a .2 Aa^iimaiiaQl. ~ None 



3.2.2.386.3 liaiaESLIliaiiflQ. Lanauiaaa* This subprogram is written in Ada. 



3.2.2.388.4 ^5.5.1 &e.c.yL£.£iy.§.lY.» - This subprogram is not used recursively. 



3.2*2. 383.5 Ne.s.ie.d, jiiiJlil!* ~ ovp.trav 



B.2.2.388.6 HaSi &£a e .!l£a n .&i££.« ~ None 



3.2.2.388.7 laJLaai Q«?pendeng | $j» - None 



3.2.2. 388.8 SuaataaLaoi Yilikilill • - Outside Package. 



3.2.2.338.9 £aaaii2Q.££La c .£a" ULS • " This subprogram is a Procedure. 
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3.2.2.355.10 C.P.f.S&i ?»ar.a2£.iS r .S.« ~ 

noaeJ in cdm.type.c.node^ref ; — node to be resolved. 

3.2. 2. 338.11 illftsEULAfiti. - None 

3.2.2.388.12 AJ.a2£JLl!!JS« ~ 

for EACH element of as_list> loop 

RESOLVE I ist el ement> 
end loop; 

3.2.2.383.13 2iaaa2££iS. 2.2,3.12.2*2 SfiHaiSiSSl- - None 
3.2.2. 388. 14 txaoaalSS & £aU&' 1&U£&U££S« - None 
3.2.2.389 iu.S.li£.lia£.2.ai« ov_.com p^un i t 

3.2.2.389.1 Ei±£225S« " Perform overloading resolution on a node of type 
'comp_unit*. 

3.2.2.38 9.2 lSSUE2ii2fl5« *" None 

3.2.2.389.3 Iaaisa£0.iaiii2Il Language • - This subprogram is written in Ada. 
3*2.2.389.4 Ujeol £££.yxS,ivsJLy.» *~ This subprogram is not used recursively. 
3.2.2.389.5 JlSSijgSl kiiihjLn* - ovp_trav 
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3.2.2. 3 t2iii !2£2£Qda£2.i£I» *" None 



3.2. 2.339.7 Il£££l iiaaaQ.ilaS.aia.S* " None 

3.2.2.389.5 Su.aar.asr.aa YiiiiiiiiiJt • - Outside Package. 

1.2.2.389.9 £uQSLii2.Q,££L25l£iyX£ • ~ This subprogram is a Procedure. 

3.2.2.389.10 tarsal P-acaaaiaLS* - 

node: in edm_type.c_noda_ref; «— node to oe resolved. 

3.2.2.339.11 iiaar£lia£lS • - None 

3.2.2.339.12 y.aa£j.tQ!B« ~ 

RESOLVt as_pr agma_s> 
RESOLVE as.un i t_body> 

3.2.2.389.13 iia2Q2s.i.ii &aas.aas.s SaasnalLast* - None 

3.2.2.389.14 £xajnaiSS. af Qaia SiLUalyjiaS* - None 
3.2.2.390 Su.2a£o.a£ am. - ov_subunit 



3.2.2.390.1 PytLaaaa* ~ Perform overloading resolution on a node of type 
• subun i t ' • 
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3. 2.2. 390.2 AilU2at.i2Q5» ~ *^one 



3. 2.2. 3*90.3 l-nq.l emantati-on Language. - This subprogram is written in Ada. 

3.2.2.390.4 yjep; £La£U£li.y.aiY.« This subprogram is not used recursively. 

3.2.2. 390. 5 NgSiSSi kilQifl* - ovp.trav 

3.2.2.390.6 H2£i QSClQdaniiei. - None 

3.2*2.390.7 ' laxa&i HaaaaiiaQaias* - None 

3.2.2.390.8 SuflfiLaataffi YiliaiiiJLX* - Outside Package. 

3.2.2.390.9 EuQc.tjqH I Procedure . - This suborogram is a Procedure. 

3.2.2.390.10 £a£aal E.acaisai.a£i» - 

node: in cdm_type .c^node.ref ; — — node to be resolved. 

3.2.2.390.11 Uata=£Uaai5. - None 

3.2.2.390.12 AJ.£2£iinrjj. - 
KESOLVE as.subunit.body> 
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3.2.2.390.13 2iaaaasJLj.a H&siiaas teniLZLiz* - ^one 



3*2.2. 390.14 txaaaiftS, 2l ilCU£lUL£L2* - None 



3.2.2.391 Sy.aa£aa£33l« ~ ov_gen_asscs 



3.2.2.391.1 £«iLttSLiS« *" Perform overloading resolution on a node of type 
• gener i c_assoc_s * • 



3.2.2.391.2 £££ij l 2!£lxSL n ,.S > « None 



3.2.2.391.3 Ia2lSlSQ.i^£.i2Q LsLQSlia3£« - This subprogram is written in Ada. 



3.2.2.391.4 &aaU££±Y.al*» - This subprogram is not used recursively. 



3.2.2.391.5 Siasisa Within « - ovp^trav 



3.2.2.391.6 Ho.s£ QsaSD.a'aiiaiaS.* - None 



3.2.2. 391. 7 iana^k Qaaao.sta2.aiss* - None 



3.2.2.391.8 Suaaf-aatani ViliaililY.- - Outside Package. 



3.2.2.391.9 Funct i on^Proceo'ure . - This subprogram is a Procedure 
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3.2.2.391.10 taciii iiLa2£ll£S« ~ 

node: in cdm.type • c.noda.r e f J — node to be resolved. 

3.2.2.391.11 ilJlasEUafitl. -None 



3.2.2. 391. 12 ^laaciilaa* - 

for EACH element of as_list> loop 

RESOLVE | 1st element> 
end loop; 



3.2.2.391. 13 iiaaaflai.J.5. MsssaaSS ££0.££.2£Sd« " None 



3.2.2.391.14 £ia2fiiSS. 2L ilaia il£U£lUL£2« - None 



3.2.2.392 iiitiaf.aar.32l* ~ ov^rec^rep 



3.2.2.392.1 2laf.aaas» *" Perform overloading resolution on a node of type 
'record.rep'. 



3.2.2.392.2 Ai^y.njD.iian.5. - None 



3.2.2.392.3 l32i£!2£Q£aii.2Q, LsLQaUsiaS* ~ This subprogram is written in Ada 



3.2.2.392.4 Llieg. &e.£y.£.JLLY.2.iY.« ~ This subprogram is not used recursively. 



3.2.2.392.5 Ne.s.i,§2 •aiji.aj.n. - ovp_trav 
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3.2.2. 392.6 tiaii 52saS,IlSlai]i£iaS,» ~ None 



3.2.2. 392.7 IaCSSLi Qe.fl£Qjl£12£j.fi.S« " None 



3,2. 2*392. 8 Su.2aro.gxa2! liliailiiX- - Outside Package. 



3.2.2. 392.9 £uQ£iiflQ£PLa££&U£.S,» ~ This subprogram is a Procedure. 

3.2.2.392.10 fcoxaal Par.ai2 " 

node: in cdm_type • c.node^ref ; — node to be resolved. 

3.2.2.392.11 ii&e.-£tIaHlS» - None 



3.2.2.392.12 Aiafl£iiha. - 
RESOLVE as_exp_void> 

if AS_EXP_VOID not an integer type> then 

ERROR 15030> 
end if; 

GET as.comp.r ep_5> 

for EACH element of a s _ I i s t > loop 

RESOLVE list el ement> 
end loop; 



3.2.2.392.13 aiaaaaiiia Jisisaaas £eo.§r.a£s2- - 

SEVERITY 

15030 E integer expression required 
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3.2.2. 39 2.14 tiasaiSi 2t =23 13. Ii£U£lU£&£« * None 



3.2.2.393 iiilftLaSLai* * ov.com o„.reo 



3.2.2.393.1 PyxaaSS* - Perform overloading resolution on a node of 
'comp^rep*. 



3. 2.2. 39 3.2 A 5.2^15 a £.12 QS» " None 

3.2.2.393.3 IJiaiSa&alaiiaQ LlQSUaaS* ~ This subprogram is written in Ada 

3.2.2.393.4 lii^Si &£&U££i.y.3.JLy.« - This subprogram is not used recursively. 

3.2.2.393.5 Ng^lSSl kiilliG.* - ovp_trav 
3. 2.2. 39" 3. 6 HaS4 !2sa£Gd£n£iS£- - None 

3.2.2.393.7 liL^ei QsaSQlSBaiS-S* *" None 

3.2.2.393.8 iuafi£aa£2(S ^iliaiiiiZ* - Outside Package. 

3.2.2. 393.9 P UQaiiaa^F-iaSS^MLS • " This subprogram is a Procedure. 

3.2.2.393.10 Far,iuai p.aLaaais£s • - 

node: in cdm_type.c_node_.reft — node to be resolved. 
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3.2. 2. 393. 1L ^iflS:£Ils,£iS . - None 



3.2.2. 393. 12 Aiar,r_j.lhm. - 
RESOLVE as_exp> 

if TYPE of as_exp not an integ«r> then 

ERROR 15030> 
end if; 

RESOLVE as.range) 

if TYPE of as.range not an integer> then 

ERROR 1S030> 
end i f ; 



3.2.2.393.13 aiaSQ2SlLiS &£.aS.L3±2.&* - 

SEVERITY 

15030 E integer expression required 



3.2.2. 393. 14 tiamalss 2.1 fiaia. l»f.u£tii£as- - None 



3.2.2.394 iy.2.fi£.£.££.£.2i« - ov_address 



3.2.2.394.1 PkLflSSS* *" Perform overloading resolution on a node of type 
•address 1 . 



3.2.2.39 4.2 A££UE&£.i.2.!!£» - Mone 



3.2.2.394.3 LlQ.LS.3LS.Q.L^L2Q. ~ This subprogram is written in Ada. 
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J. 2. 2. 3*34. 4 Uial i££J.£SiX*il« ** This subprogram is not used rscursively 
3. 2. 2. 394. 5 JlSS.i£Si idii.i2i.Il* - ovp.tr a v 

3.2.2.394.6 Ban QsaSO.<3ai2£iaS« - None 

3.2.2.394.7 Taxaai i2£D.e£>4ai2£jLaJ« - None 

3.2.2.394.8 2iA2a£.25£.aai liSiailiiy.. - Outside Package. 

3. 2-.2. 394.9 &uQ££i2D.Z.P.£a.£2£ly.£S« ~ This subprogram is a Procedure. 

3.2.2.394.10 Fo.£j2ii PaLafl!SiS£S« 

node : in cdm - type.c - node - .ref i — node to be resolved 

3.2.2.394.11 ii^Sr£lia£iS« - None 

3.2.2.394.12 Aia2£il!lffl- - 
RESOLVE a$.exp> 

if AS_EXP not, of an integer type> then 

ERROR 15030> 
end if; 

3.2.2.394.13 aiaaao.5.ii£ we.s.sa.aas £s.aa£aiad« - 

SEVERITY 

15030 £ integer express ion required 
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3.-.2.394.L* iiiSaliS. 21 Sir.U-.iilf.aS- - None 



3.2.2«395 _j±a_,£ 3.2f-a!D • ~ ov.code 

3.2.2.395.1 Pyx&25.&« " Perforn overloading resolution on a node of type •code 1 . 
3.2. 2. 395.2 AiSUEaJ.i&a.S* None 

3.2.2.395.3 laalaisaiaiiSQ. LlQilU22£» "* This subprograu is written in Ada. 

3.2.2.395.4 Us,e._t EsaUf-liY-Si.!' " This subprogram is not used, recursively. 

3.2.2.395.5 Jisalsa iiUHiQ- - ovp.tr av 

3.2.2.395.6 H££Ji. Qgaftoflgng j.e.s« - None 

3.2.2.395.7 laxsai QsaSIlfl'S.llSJLa.S* ~" None 

3.2.2.395.8 2,uaaf.aS£a!a iillailll^* ~ Outside Package. 

3.2.2.395.9 Fuqct;, i op/ P ro cqdure . - This subprogram is a Procedure. 

3.2.2.395.10 Formal Paraine.t ef^s, . - . 

node : in cdm.type.c_node._ref; — node to be resolved 
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3.2.2.395.11 ii5l4r£ttSfiiS»- ~ None 



3.2.2.305.12 AlaatU!un. - 

GET as.naaie) — should be a type name 
overload ( AS.EXP jas_naine>) ; 



3.2.2.395.13 UJUaQasJUa Me.S5.aaai asa&£aial- - None 



3. 2. 2.3^5.14 £ia22lS§. 2l !2a£2 Sinus. tyx££« - None 



3.2.2.396 2.y.bii£o.aLas« ~ ov.task_.body 



3.2.2.396.1 ** Perform overloading resolution on a node of type 

' task.body • • 



3.2.2.396.2 &5.SU2iaJU.ailS« None 



3.2.2.396.3 IjjalS£2£Qiaiii211 LaHSLUia?.* ~* This subprogram is written in Ada 



3.2. 2. 39t>. 4 Us.e,d. Esaur.Siy.alJt* - Thjs subprogram is used recursively. 



3.2.2.396.5 N[fiSi5fl' ttil&lll* " ovp.tr av 



3.2.2.396.6 tiaSl !2£a£flllSi2aiiUL« *" None 
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3.2.2. 3 9o. 7 \±§.Q.2.H&&Q,&L£.2. • ~ None 



3.2.2.396.8 5,iiSaL22L2!a iiSiiLLlily.* ~ Outside Package. 

3.2.2.396.9 Funct i pn/ Pr.oce^ure . - This subprogram is a Procedure. 

3.2.2.396.10 £2£m a l P.af.aiD&l£L3.- " 

node s in cdm_type • c_node_r e f ; — node to be resolved. 

3.2.2.390.11 iii£z£ll£iil« - None 

3.2.2.396.12 AJ.ao.£jLi!2ffl- - 
RESOLVE as.biock.stub> 

3.2.2.396.13 aia3QflS4i£ *S£iaail SeQ££ai£Sl. - None 

3.2.2.396.14 ixajsftlas. o.L Slia Lt£U££.U££S« - None 
3.2.2.397 iu£L££°.££a,2l« ™ ov.type 

3.2.2.397.1 P>A£B.o.s.e.. - Perform overloading resolution on a node of type 'type*. 
3.2. 2. 397.2 As.s.yjnp.£x£LIlS« ~ None 
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3.2.2.3 Q 7.3 l22l£!n2.alai.ii2!X L3.I22!12.a£* " This subprogram is written in Ada. 
3.2.2. 397. V Uaai &as.!l£2iy.aly.* «- This subprogram is not used recursively. 

3.2.2.397.5 Manias Jtti&lia* - ovp.trav 

3.2.2.397.6 Hasi ttaa&adaflaias« - None 

3.2.2.39 7.7 Ia£2S£ Uauaa£aaaia2« None 

3.2.2.39 7.3 £uaa£fl2£a<B YiliaiiiiY.* - Outside Package. 

3.2.2.397.9 £ua£.£.i2Q.Z,f_L2.£2.£lU£S. • - This suoprogram is 3 Procedure. 

3.2.2. 39 7.10 Eamaai P.a£ai2alLa£.a« * 

node : in cdm.t ype • c_node_r e f ; — node to be resolved. 

3.2.2.397.11 SJ.d.£-£l£e.c.£3.. - None 

3.2.2.397.12 Aiaa£ii.QI2« ~ 
RESOLVc as_type„.sp6C> 

3.2.2.397.13 aiaaaaaLU tiassaaas £aaa£aiad* - None 
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3.2.2.397.14 iiaffittlaa 21 2ala S.Jfc£U££ii££S» - None 
3. 2.2. 398 S.U&2L£££2.ID« - ov_tas k_d ec I 



3.2.2.398.1 £j.LPJiS.£« *" Perform overloading resolution on a node of type 
• task_dec I • • 



3.2.2. 39 8.2 iiSUiaiioQS- - None 

3.2.2. 39 d. 3 laaJ.e.aSQ.iaii.SQ, L3.Q.3U2.a£ • ~ This subprogram is written in Ada 
3.2.2. 398.4 UiSSl SSS,U,£SilS.i^« ~ This subprogram is used recursively. 

3.2.2.395. 5 SissJLSdl kiilELLH 8 - ovp^trav 

3.2.2.398.6 HfiSl Deoep d^ nc t es . - None 

3.2.2.398.7 lacaa! SlSflSriitS.O.S.ie.l* - None 

3.2.2. 39b .8 2y.2aL2Sr.2L2! Viliail ily. • • Outside Package. 

3.2.2.398.9 S ! iQClLiSCl^P.L9a<«^dVHl e - • ~ This subprogram is a Procedure. 

3.2.2.398.10 £p.LSaI Parameters . - 

node : in cdi»_type • c_node_r ef ■— node to be resolved. 
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3.* 2 • 2 . 39a . II iistfir 5.11^2.11 • "* None 



3. 2. 2, 3^8 . 12 Aj.20xj.ih a* - 
RESOLVE as_tasK_def > • 

3.2.2.398.13 ilaflQa'Stifi S«HSJ:ai*d- - None 

3.2.2.393.14 t^affialSS 2l 23 li£ii£lU££S» ~ None 
3.2.2.399 iiifiLftiaacaja* - ov_subtype 



3.2.2.399.1 EiiLaaaa* - Perforu overloading resolution on a node of type 
'subtype' 



3.2.2.399.2 &Sll*BaiiaaS» - None 



3.2.2.399.3 IjB2j.2iB£a£aii2Q. i»ia3U3.££« " This subprogram is written in Ada. 



3.2.2. 399. k Ussa E£&ar.li£al£* - This subprogram is not used recursively. 



3.2.2.399.5 JiSSisa kilDJjn. - ovp„,.trav 



3.2.2.399.6 &2S£ fi£a£!l££GajLaS.« ~ None 



3.2.2.399.7 lar^e.^ Q,e,P.e;n4e i ncJ e $ . - None 
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1.2.2. 399.0 ii^ai.aa£ia Y. iii3.il i&X* - Outside Package. 

3.2.2.399.9 £]A2,Q.i.LSLllL£L2£§.iLilL5.» ~ This subprogram is a Procedure. 

3.2. 2. 399. 10 Eataai PaLaaalai^ - 

node s in cd.u.type. c.node_ref ; — node to be resolved. 

3.2. 2. 399. 11 SJ.d£-£,iie.£££. - None 

3.2.2.399.12 UaflCilSfll* - 
AESOLVe as.constrai ned> 

3.2.2.399.13 iiaSQfiSliS . fiSSSiaSS ££Q£f.ai5£t» - None 

3.2.2.399.14 tiaaialsi ai Qala s t r .yc tvr?s * ~ None 

3.2.2.400 luifi£P.2£ai2« ~ ov_ labeled 

3.2.2.400.1 £ yLLttase. . - Perform overloading resolution on a node of type 
•labeled* 

3.2.2.400.2 lS.s.iiaD.iiaQ,s. - None 

3.2.2. 400. 3 laaiSSSaiaJLiflQ LaD.au3.aa* This subprogram is written in Ada. 



3-871 

"Use or disclosure of technical data and /or computer software 
is subject to the restrictions oh the cover of this Document." 



ALS Co.uoiler *ach i ne-I ndeoenden t Section C5 Specification CR-CP-00 59-C84 
1 No ye. Tiber 19? 3 

J.2.2.40G.4 U£5<2 SS5.U,£iiiia,i^« — This subpro^ra^i is used recursively. 

3. 2. 2. 400.5 Ne.sjLS£L ttililiil* ~ ovp.trav 

3. 2 .2. 4 00«b ilaii i2saS.Q4££lS.i£S - - None 

3.2.2.4 00.7 Ia£3£4 £2220.i2*,!2£.LS.£« - None 

3 .2. 2. 400 .8 Iiii2aLS.aL3.ffl YJLsii2.ii.iJty.* - Outside Package. 

V 

3.2.2.400.9 £uQ£iiaEZ,liL2£S^U£S« "* This subprogram is a Procedure. 

3.2.2. tOO. 10 £2L2al £il£a2!S£.££S.» " ' 

node : in cdm.type .c.node.re f » — node to be resolved. 

3.2.2.400. 11 SiS.S=£Ii££l£- " None 

3.2.2.400.12 AJ.cjp.sJ.ihm. - 
RESOLVE as_stm> 

3.2.2.400.13 Qiaaaaaiis SIsssaaas S^QSiaisil- ** None 

3.2.2.4 00.14 £iaiaiSS 21 Qa£2. Sir.U£iU£es. - None 
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3.2.2.40i Sil£,y > £ > o.3,£„aia» - ov.named.stm 



3.2.2.401.1 Pu£HaS£» - Perform overloading resolution on a node of typ 
1 named_s tin • • 



3 .2 • 2. 401.2 iiSUfflttiiaQS* ~ None 

3.2.2.401.3 IflaiSlSaiaiifiQ LSLHSluaaa* ~ This subprogram is written in Ada. 

3.2.2.401.4 LiiSSl &SaUL3,iy.sJLY.« ~ This subprogram is used recursively. 

3.2.2. 401.5 SiasJLSSl siiitLLn- - ovp_trav 

3.2.2.401.6 Hail £ea£H<l£Qai£S > • - None 

1. 2. 2. 401.7 iar.ae.4 Qsaanilaaaiai* - None 

3.2.2.401.8 2il2af.aar.a21 Visiailil** - Outside Package. 

3. 2.2.401.9 EuaatiaQZEr.a£S.iiU£a» This subprogram is a Procedure. 

3.2.2.401.10 Fa£«aai Paxaaalsis- - 

node i in cdm. type • c_node„r e f J — node to be resolved. 
3.2.2.4 01.11 ii^s=£tle.ais. - None 
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3.2.2.401.12 iiaar.iih.ia. - 

RESOLVE as_stm.> 



3.2.2.401.13 aiaaaasJLia Jiasiaaas. Saaataiaa- - None 



3.2.2.401.14 ^saaaias. al iaia itr.ualm.as' - *one 



3.2.2.402 SjAaacaaLaffi* " ov_raise 



3.2.2.402.1 £u£aaiS.« Perforn overloading resolution on a node of type 'raise' 



3.2.2.402.2 A iSuao .iiaQS« - None 



3.2.2.402.3 Xaaiaasaiaiiaa Laaauaaa • - This subprogram is written in Ada. 



3.2.2.402.4 Use^p; fleeces, t v .Sl,„Y* "* This subprogram is not used recursively. 



-3.2.2.402.5 ilasiai iiliQia* "* ovp_trav 



3.2.2.402.6 Has£ Uaaaaaaaaias* - None 



3.2.2.402.7 iaxaai £aaaa£aaaia.s- - None 



3.2.2.402.8 Sa2ar.aar.afll LisiaiiiiY.* *" Outside Package. 
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J.2.2. 402.9 £u2£ti2Q£ELa£*2u.L£« " This subprogram is a Procedure* 

3.2.2.402.10 £aL3il 2.af.aeial£E,S,- - 

node : in cdm.type . c.node.r e f i — node to be resolved. 

3.2.2.402.11 iiifi=£U&£ii. - Mone 

3.2.2.402.12 AJ.S2LiiEi2!« - 
RESOLVE as.nanie.void> 

3.2.2.402.13 iiaaaaiiia issiaaas £aa&£a£5<i« - None 

3.2.2.402.14 £xaj2iilsi 2.1 &3£a lLr.U£i!2r.£2* - None 
3.2.2.403 SuaaJLa2La!3» ~ ov.task.spec 

3.2.2.403.1 £j.LaaS£« ~ Perform overloading resolution on a node of type 
'task. spec'. 

3.2.2.403.2 A .SSiii2fiii2Q..S« - None 

3.2.2.403.3 IiaisaaaiaLLSQ. L3.Q2.ua 2S« ~ This subprogram is written in Ada. 

3.2.2.403.4 Us^d. Re.c.u.r.sJ.vf.el^.. - This subprogram is used recursively. 
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i« 2. 2. 403 .5 ilSLit5Jl ii&tLLll* ovD^trav 



3. 2. 2. 403*6 tlaSl !2sa*Q a JL£L£.i£5.» ~ None 

3. 2 .2. 4 03. 7 Iataai Q&k£Q4£acJLe.2. - None 

3.2.2. 403.3 2,ii2fi£2.2£a!3 LL£i£jLLi&y. • "" Outside Package. 

3.2. 2.403. 9 £uQ££i2a££l.fi£*a , !iL£» " This subprogram is a Procedure. 

3.2.2.403.10 £j2£i2ai P,^r,amet|gr s . - 

node J in cd<n_type. c„,node_r ef ; — node to be resolved. 

3.2.2.403.11 iiflizfitlafijti* ' - None 

3.2.2.403.12 ilafl£ii!2ai» - 
RE'SOLVE dect_rep_s.> 

3.2.2.403.13 i2ia2QfiS.t.i.S. &e.£S.aaSl SsaataiSli. - None 

3.2.2.403.14 ii^alSi 21 LU.U £££ il£iu.£££ • - None 
3.2.2.404 Pac.Jiaae.. - ovp_util 
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3.2.2.404.1 S.nf.fi.as.S,. ~ Provide utility support for overloading resolution 
routines. 



3.2.2. 404.2 ■ fiUfflilflL fil ZukkL22.L2Bl • ~ 2 



3.2.2.404.3 QsasaflsQaiss. an Qitjex £asis3ass lac Sa&a* - cdm.type 



3.2.2.404.4 Asi^iiiaaai Qe.asQa'finai.ss lar. aali- - Hone 



3.2.2.404.5 Paajsass Sasaiiiaaiian- - 

package ovp^util is 

— see overview in package ovo_util 
procedure OVERLOAD... 
procedure Q VE RLOADRNG • • • 
end o vp_u t i I » 



3.2.2.404.6 £iaaar.aiJLaa £ada. - None 

3.2.2.404.7 £&aaiaiSSL al £ala S.lLUalU13£- - None 



3.2.2.405 £y.j2,a£a9X3.!fl« ** overload 



3.2.2.405.1 PiiHaaSS" ~ Peform overloading resolution on an expression is not 
nested in another expression. 



3.2.2.405.2 AjiSUffifiiiaflS* - None 
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3.2.2. ^05.3 Ia2l*l£Q.i.tii2Qt LiHSlliaS* -This subpfogran is written in Aia. 



3.2.2.405.4 Uissl £e.£i£,s.iy.e.iy.. - This subprogram is not used recursively. 



3.2.2.405.5 SiSSiSd aLLi!lia« - ovp.util 



3.2.2.405.6 nasi fisaaaiaasLin • ** None 



3.2.2. 40 5.7 Ia.rs.ai. <Je.n fii^l • ~ None 



J.2.2.405.a Suafl£fl2£.2!Il £i 21 Sillily.* "* Outside Package. 



3.2.2.405.9 £uQc.ii,an.^P£2£*ilU££« " This subprogram is a Procedure. 
3.2.2.405. LO f,2L!H^L PaLa<2 - 

node ; in cdm.type.c.node.ref i — expression node to be resolved. 
res.ult.req : in c dm.t ype . c.node.r ef » — type of result required 

in uhich this node apoears. 

3.2.2.405.11 iis:a-£lie.c.i,i. - None 



3.2.2.405.12 A.iafl£iihfn. • - 

if MAINTENANCE option c> then 

PRINT "overload of'*» node, "with result. req * result. req> 
end if; 

i f NODE * * vo i a * > then 

return; 
end if; 

reso I ved := true ; 

cl.exo (node* 1» result. req* oaram.avail* resolved); 
if MAINTENANCE option c> then 

PRINT "after pass It resolved = H » resolved* 

"param. avail = M • par a.n.ava i I > 
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end i f ; 

if resolvea - true then 

return ; 
end i f ; 

if iparam.avai I S * 1 then 
resolved :» true* 

cl.exp (node? 2» resul t.reai param_a va i I * resolved); 
if MAINTENANCE option c> then 

PRINT "after pass 2* resolved * "» resolved* 

"param.avai I » «, param.ava i I > 

end if; 

if resolved =» true then 

return; 
end if; 
end if; 

resolved ' * true; 

d.exp (nodes 3* resul t„„req» param.avaH* resolved); 
if MAINTENANCE option c> then 

PRINT "after pass 3 * resolved * "» resolved) 

"param^avai I =» "* param_avai I > 

end if; 

if resolved * true then 

return; 
end if; 

if ! par am_ava i I ! = 1 then 
resolved s» true; 

cl_exp (node* 4* result.req* param.avail* resolved); 
if MAINTENANCE option c> then 

PRINT "after pass 4* resolved » H » resolved* 

"param^avai I * "* par am.ava i I > 

end i f J 
e I se 

ERROR 15033> 
end if; 



3.2.2. 405 .13 £LiaaQas.ti£ fissiaass fisnsiaisa* - 

SEVERITY 

15033 E overloaded expression cannot be resolved 



3.2.2.405.14 j,S.aG3£i§.§. 21 2i£U£iU££5,« ~ None 
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£il<2SLf. 0 .S r .a!2'» - overloadrng 



3.2.2.40b. I £n£&o.£e.. -Perforn overloading resolution on a range which is no 
nested in an expression. 



3 .2 .2. 40o.2 4SSM0iaii2QS» " None 



3.2.2.406.3 IiB2J.£!S£a£ali2£! L2.D.3Usia£» • This subprogra-a is written in Ada. 



3.2.2.406.4 Us.£<i £2,£.UX5iY.2.ix« - This subprogram is not used recursively, 



3.2.2.406.5 iiSilSSt '4 lAfttfl* " ovp_util 



3 .2 .2 .406. 6 tlasi ttfiflL&'QStSLtttlas* " None 



3.2.2.406.7 Taxii&i, &£&£!2&&£i£j.£.£ • ~" None 



3.2.2.406.8 2ii&CI.o.a£.a(D V i s to i.1 i ty« - Outside Package. 



3.2.2.406.9 £ufl£iiaaZ.E£a££dULa» ~ This subprogram i s a Procedure. 



3.2.2.406.10 £p.£.2!al E.ar.aaat&i.i • ~ 

node : in cdm_type .c_node_ref » — range node to be resolved 
result_req : in cdm_tyoe.c_node_ref ; — type of result required in 

context in which this node appears. 
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3.2.2.405.11 iic2S:ille.£ii. - None 



3«2. 2. 406.12 ^laaciiUa* - 

if MAINTENANCE option c> then 

PRINT "overloadrng of"? node* "with resu I t.r eq% r esu I t_r eq> 
end if; 

resolved :» true} 

ov^range ( node* 1* result^req* paran.ava i I * resolved); 
if MAINTENANCE option c> then 

PRINT "after pass 1. resolved ■ "» resolved 

"param_avai I * "» param_avail> 

end if» 

if resolved * true then 

return; 
enq if; 

if f param.ava i I ' » 1 then 
r eso I ved :* true ; 

ov_range ( node* 2* result_req» parma^ava i I * resolved); 
if MAINTENANCE option c> then 

PRINT "after oass 2. resolved * "♦ resolved* 

"par am.ava i I * "» par am_ava i I > 

end i f J 

if resolved * true then 

return; 
end i f ; 
end if; 

resolved := true; 

ov.range ( node* 3* result_req* parma.avai I * resolved); 
if MAINTENANCE option c> then 

PRINT "after pass 3. resolved = "» resolved* 

"pararn_ava i I * "* par am_ava i I > 

end if; 

if resolved * true then 

return; 
end i f ; 

if ' param_ava i 1 ! = 1 then 
resolved := true; 

ov.range ( node* 4* result_req» param_ava i I » resolved); 
if MAINTENANCE option c> then 

PRINT "after pass 4. resolved * "* resolved* 

"param^ava i 1 » "* par am.ava i I > 

end i f ; 
e I se 

ERROR 15034> 
end if; 
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3.2.2.406.13 2ia.2QO.iiiS. 2Sl£2.aa.S ££n££ai£2« ~ 
SEVERITY 

15034 E range exoressions cannot be resolved 



3. 2. a. 40e>. 1 4 =iaaaia5. ax GLaia itxuaiuxas* - None 

3.2. 2.407 £.aa&.sl£S.« ~ ovp.clas 

3.2.2.407.1 Pyxaasa* " l"»P I ement the overloading resolution function for Diana 
classes* 

3.2.2.407.2 latest Q.L ^&£2££iss.. - 27 



3.2.2.407.3 aaaaastaaaiss &a. Eaalsaasi ta£ iaaa- - cdm.type 



3.2.2.407.4 Aaiiiiaaai 2sas,aa\saaiss. £a£ Saa - ^* ~ ovp.ctxt* ovp.trav. ovo.expr 



3.2.2.407.5 Saaisaas SaaaiXiaatiaa- - 

package ovp.clas is 

— See overview in package ovp.trav 



pr ocedur e 


c 1 


_3 CC_ 


const ; 


procedur e 


c 1 


.b 1 i t 


.stud ; 


procedur e 


c i 


.choi 


ce 


pr ocedur e 


c 


.ens t 


.voi d ; 


procedure 


c 


.cons 


trnt; 


procedur e 


c 


.dec! 


J 


procedur e 


c 


.dec 1 


.rep; 


procedur e 


c 


.dscr 


t.rngj 


procedur e 


c 


.dscr 


t.r.vj 


procedur e 


c 


.exp; 




procedure 


c 


.exp. 


void; 


procedure 


c 


1 .gen. 


parm; 


procedure 


c 


1 .head 


er; 


pr ocedur e 


c 


l.i tern 


J 
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oroceour e 


c 1 


_i ter a 


t i on ; 


pr oceaur e 


c 1 


_name J 




or ocedur e 


c i 




void; 


pr ocedur e 


c i 


_pack_ 


def ; 


procedure 


c i 


_param 


» 


or ocedur e 


c 1 


_r ng_vo i d # 


pr ocedur e 


c 1 


_rep; 




or ocedur e 


c i 


_stm » 




pr ocedur e 


c i 


_sbun t 


.body; 


procedur e 


c 1 


-type^ 


rn f ; 


pr ocedur e 


c i 


-type. 


spec ; 


procedur e 


c 1 


_un i t_ 


body ; 


procedur e 


c i 


.error 


; 



end ovp.clasi 



3.2.2.407.6 Ela&aLaiiaQ £al£. - None 



3.2.2.407.7 E^SEHiS* a! £££iiaik££l* - None 



3.2.2.408 SjAflDxaacaSl* ~ c I .acc.cons t 



3.2.2.408. I £,U£ao.£S. - Invoke an overloading resolution procedure for a node in 
the class access.constrai nt. 



3.2.2.408.2 As.iu.2aiiaai« 

access _c on straint. 



- subtree (the first parameter) is in the class 



3.2.2.408.3 IialaiaaiSLtiaQ Laaaiiaas* ~ This subprogram is written in Ada. 



3.2.2.408.4 !2s,e.d. S££yUL3i£SJ.l» - This subprogram is used recursively. 



3.2.2.408.5 ilSSi.Jd. » f t.hj.n. - ovp.clas 
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3 .2.2.408.0 Hfiii iSaSQ.ilS22.iSl* None 



3 .2. 2. 408. 7 IdtasI SSttSGSiSIlSLLsS* - None 

3.2. 2. 408.8 £iiJ2a£22£aSi yiliaililX» ~" Outside Package* 

3.2.2.408.9 £i2£iiaQ^f-£flSS5.U£.S« • This subprogram is a Procedure. 

3.2.2.408.10 sataai P-ar-aiaalaca- - 

suotree s in cam^tyoe.c.node^ref ; — reference to diana node 

3.2.2.408.11 SJ.a.£=£tt ££IS* - None 

3.2.2.408.12 AXafl£iihja. - 

case N00£ type of suotree> is 
when VOI0> => 

return 
when D$CRT_RANGE_S> => 

INVOKE ov_dscrtrngs> 
when others => 

INVOKE cl_exp> 

end case; 

3.2.2.408.13 2ia2aaHia Ssssaass Ssasnisa* - None 

3.2.2.408.14 SiSlSaiSS. 2l HSia S tr uctures. - None 
3.2.2.409 iu2a£0.2£2S!» - cl.olk^stub 
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3.2.2.409.1 «,i£,aa££« " InvoKe an overloading resolution procedure for a node in 
the class o I ock stub. 



3 .2*2.409.2 ^SSUiaiiaQS* " subtree (the first parameter ) is in the class 
block. stub. 



3 .2. 2. 409. 3 iiaalSSIlSaiaiiaO. L3H£U^2LS« - This subprogram is written in Ada. 

3.2.2.409.4 llssa && c .UCSiY.&li« " This subprogram is used recursively. 
3 o 2 . 2 . 409 , 5 ii£i£sa fcLLlaia* - ovp_c I as 

3.2.2. 409 . 6 HfilJt QsaSaa*&a£iSS • ~ None 

3.2.2.409.7 Xaissi QfiaSQfl' anaill • - None 

3.2.2.409.8 iuaataaLaa Y is 1 lit.V.« - Outside Package. 

3.2.2.409.9 Funct i or>/ Procedure . - This subprogram is a Procedure* 

3.2.2.409.10 FaUiai Paramet er s. - 

subtree : in cdm_type.c_node_.ref J — references to d i ana node 

3.2.2.409.11 5.iaa-g,ile.c.i,s.. - None 
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3 .2.2. 409.12 jiJ.ci2 r .±£hm« - 

case ,V JQDE type of suotree> is 
when 8LGCK> 

INVOKE ov_block> 
when otners *> 

return 

end case; 



3. 2 .2. 409 .13 QiaSQfiSiia 2S5SaaSS teaZLZl&Z* - ^one 

3 .2.2. 409.14 £iaSttlSS fit Sl£U£iy.£lS« - None 



3 .2.2.410 IuS.fi.L5£L^!2« ' c I _cho i ce 



3.2.2. 410.1 £ica2ia« - Invoke an overloading resolution procedure for a node in 
the class choice. 



3. 2 .2 .410. 2 AiJSiiEttli.o.2.1* - None 



3.2.2.410.3 laaiSSSaJtaiifia L3.0.auai£» ~ This subprogram is written in Ada 



3.2. 2.410.4 Us.sSl ES,£U£.Sii£il« ~ This subprogram is used recursively. 



3.2.2.410.5 Ns5,ie.g; Wii,hj.n. - ovp.clas 



3.2.2. 410.6 Hg.££ U2PJL!2<ie.nc.ie.s.. - None 
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3.2.2«>41u.7 IdLaSl 23a£Q<as.2S.i£l- - None 



3-2.2. 410.8 SaaaL22La2l y.i2i&ili.JLY.« - Outside Package. 



3.2.2.410.9 £ua£.lfcia£lZ.£,L3.£§b^ULl« ~ This subprogram is a Procedure. 



3.2.2.4io.io £arjaal PaLaasiais.. - 

suotree : in cam_tyoe.c_node_ref ; — d i ana node to be resolved 
result_req s in cdm_ type • c_node_re f » — type required for choice 



3.2.2.410.11 iiiS.-£tIs.c,i.s. - None 



3.2.2.410.12 AJ.sflLiiD.ffl* - 

case MODE type of subtree> is 
when QTrtERS> »> 

return; 
when CONSTRAINED> ■> 

INVOKE ov_constrnd> 
when RANGE > »> 

overloadrng (subtree* resu I t^r eq) i 
when others =»> 

overload (subtree* r esul t_req ) ; 

end case; 



3.2.2.4io.i3 iiaaaailis £&ss.aa&s ££a*£.aisjl« - None 



3.2.2.410.14 tiamaias. a! sjllii££.ul££- - None 



3.2.2.411 !u&,2,£ 2,2 ~ c J „cns t„v o i d 
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i. 2.2. 411.1 Py.f.k.SLS.a.* ~ Invo«e an overloading resolution procedure for a node in 
the class constrai ned.void. 



3.2.2.411.2 A.is.y.mp.i.i.p.Qs. - subtree (the first parameter) is in the class 
constr a i ned.v o i d. 



3.2.2.411.3 Iaai£2£!liati.SQ, L2.QiaU2.5LS* *" This subprogram is written in Ada 
3. 2. 2. 411*4 Uiea. S2SLU£2i^3JLl« ™ This subprogram Is used recursively. 

3.2.2.411.5 Ne.s.£.g<l &il!2iQ« - ovp„.clas 

3.2.2.411.6 Hasi US&2.2££Q£j.e.s.. - None 

3.2.2. 411.7 I^Liaai OtSfiSQ^SGfiXSl* - None 

3.2.2.411.8 2y2G£c.2£2!2 Vi5ib.iiilv. - Outside Package. 

3.2.2.411.9 E.>AQ.£.LL2n.LZLSL£S.!l'J.L2. • ~ This subprogram is a Procedure. 

3.2.2.411.10 Forjsai PlLi2^1§£l« - 

subtree : in cdm..type.c_node_r ef J — reference to diana node 

3.2.2.411.11 iiie.-Stf.e.c^s,. - None 
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3 .2.2. 4ii.i2 *iaaf.iiD.ai« - 

case NODE type of subtree> Is 
when CQrtSTRAlNED> »> 

INVOKE ov_constrnd> 
when VQI0> *> 

r eturn j 
when others => 

INVOKE cl_error> 

end case; 



3. 2. 2.4U. 13 liiaaaaiLia fi&iiaaas 5aaa£aiaa« - None 



3.2.2.4ii.i4 Nasals* al daia iiLuaiuias- - Hone 



3.2.2.412 iaaaC.aar.aQl* cl_constrnt 



3.2.2.412.1 Puift2i£« - Invoke an overloading resolution procedure for a node in 
the class constraint. 



3. 2.2. 412.2 l5Siiaaiiaaa« - subtree (the first parameter) -is in fie class 
constraint. 



3.2.2.412.3 laaiaaaaiaiiaa Laaaaa2£» ~ This subprogram is written in Ada. 



3.2.2.412.4 Uisa Saaa£iiy.alY.« ~ This subprogram is used recursively. 



3.2.2.4 12 .5 Ne.s£,sa W f £h j n. - ovp_clas 



3.2.2.412.6 Hast Qepencjenc j.es,, . - None 
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3.2.2.412.7 Ii£S££ aaa^O.S^aS.ieS. - None 



3.2.2. 412.3 S.ua££fi2E.affi Visittif, IfcY* ~ Outside Package. 



3.2.2.412.9 Eunc.£iC;Qii££2£a£U£.£« - This subprogram is a Procedure. 



3.2.2.412.10 Foxaal f-acaaaiaxis • - 

suotree s in cdro_type.c_node_.ref; — reference to diana node 



3.2.2.412.11 H-t£-£Il e.£ii. - None 



3.2. 2.412. 12 &!ao.£ii!l!2. - 

case NODE type of subtree> is 
when RANGE > 38 > 

INVOKE ov.ranqe) 
wnen DSCRT_AGG> »> 

INVOKE ov_dscr_agg> 
when DSCRT_RANGc_S> => 

INVOKE ov_dscrt_rngs> 
when FIXED> *> 

INVOKE ov_fixedcon> 
when FL0AT> 

INVOKE ov_floatcon> 
when V0ID> 

return; 
when others *> 

INVOKE c 1 .error > 

end case; 



3.2.2.412.13 Qiaaaaiiis Sassaaes S£H££alS-> - None 



3.2.2.412.14 IssffifilSS 2L Sl£U£.-U.£££« - None 
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3.2.2.413 iiiia£flaL22l» - cl^aecl 



3.2. 2.413.1 iLuiaasS* ~ Invoke an overloading resolution procedure for a node in 
the c lass dec I • 



3.2.2.413.2 A5.iy.2I a JLiaO.S« ~ subtree (first parameter) is in the class dec I 

3.2. 2. 413. 3 Iaal£l£ai,a.^iflQ La.0.aiiaas« " This subprogram is written in Ada. 

3.2.2.413.4 LISLSfl 1 Recur, sj ve I v. - This subprogram is used recursively. 

3.2.2.413.5 SifiSlsa H tAtHfl* - ovp.clas 

3.2.2.413.6 Has! &£asad£a£LU£. - None 

3.2.2.413.7 laiaai Qsasastsnaias* - None 

3.2.2.413.3 luSaLaSLaO! V i s i b i I t tv . - Within Package On I y « 

3.2.2.413.9 Eu!2££,ia n .££ r .a£££yX£ • ~ This subprogram is a Procedure. 

3.2.2.413.10 earjsal Paf.ajssiar.i- - 

suotree • in cdm - tyDe.c_node - ref; — reference to diana node 

3.2.2.413.11 iia£r£itaaiS • - None 
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3.2.2.4 13 .12 ii,32 Lii.£i2i« ** 

case NuOS type of subtree) is 
when CONSTANT) => 

INVOKE ov_constant) 
wnen VAR) *■> 

INVOKE ov.var) 
when NUM8eR) »> 

INVOKE ov. number) 
when TYPE) »> 

INVOKE ov_type) 
when SUBTYPE) ») 

INVOKE Ov.suotyps) 
when SUb PftOGAM^OECL) ») 

INVOKE ov_suoo_.de I > 
when PACKAGE.DECL) => 

INVOKE ov_pack_dcl) 
when TASK.OECL) => 

INVOKE ov_task_dcl) 
when USE) =»> 

return; 
when EXCEPTION) =) 

return; 
when PRAGMA) => 

INVOKE ov_pragroa) 
when others *) 

INVOKE cl_error> 

end casej 



3.2. 2 -413 .13 2iaSD.2Si.iS. <• £212.211 £aCL££aia-t» - None 



3.2.2.413.14 tiaisaias at Qiiia Ii;Lii£i.-i£ai« - None 



3.2.2.414 S.u.Ha£.a2Laai» "" cl^decl^rep 



3.2.2.414.1 iiiLaasa* ~ Invoke an overloading resolution for a node in the class 
dec I .rep. 
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3.2.2.414.2 As.5u.ma£j.c.ns.. - subtree (the first oar aneter ) is in the class 
aecl.reo 



3 • 2.2. 414*3 laaifiiaalatifiQ L2.Q.^ua££» ~ This subprogram is written in Ada 

3.2. 2.414.4 !2s.asl ES,5.ilLiiy.S.l.Z* ~ This subprogram is used recursively* 

3.2.2. 414.5 liSiiSll SLilaia* " ovp.clas 
3.2.2*414*6 *21L !2saaQ^S.H£.iaS« - None 

3.2.2.414.7 lataal iisaaaaaaaias* - None 

3.2.2.414.3 Suaataatasi ILlL&LlLLX,* - Outside Package. 

3.2.2. 414.9 EuaaiiaQ^ELaaalyXS,* "* This subprogram is a Procedure* 

3.2.2.414.10 £a£23l P-ac.ai2sl£x:i» - 

suotree : in cdm_type«c_node_ref ; — reference to diana node 

3.2.2.414.11 ii£ts-£f f e.s.is.. - None 

3*2.2*414.12 Aj.2ar.iiaE* - 

case NODE type of subtree> is 
when A00RESS> »> 

INVOKE ov_address> 
when RECORDERS P> => 

INVOKE ov_rec_rep> 
when SIMPLE. REP> => 

INVOKE ov_s i mp_reo> 
when others => 
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INVOKE ci - decf> 

enu case; 



3.2. 2.. 4 14. 13 ilasaailia ESSSaaSSL ££n£I.ai.S£* - None 



3.2.2.414.14 tiaialss. at 2aia Sinuaiiiiisa* - None 



3.2.2.415 SaaataSLaa- ~ c l_dscrt„.rng 



3.2.2.415.1 Eu£,a2S£» - Invoke correct overloading, resolution routine for a node 
of class d scr t_r ange • 



3.2.2. 415.2 A.SS.Uffiaii2Q.5« " None 



3.2.2.415.3 IsaiSasaiatiaO. LaaauaaS* " This subprogram is written in Ada. 



3.2.2.415.4 !is.e,a Raaaili^SlY.' - This subprogram is not used recursively 



3.2.2.415.5 N£S.£e.g. Wj.iQin. - ovp^clas 



3.2.2.415.6 tiasl Ssaaaa"aaaias« None 



3.2.2. 415.7 laiaai. Qsaaaa'saaia^* ~ None 



3.2.2.415.8 SiiaaLaatas iiliaiiiiX* - Outside Package 
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3.2.2*415.9 £iinc.^j.<iO.£fl,£,2.£a.i!J.L£» " T nis subprogram is a Procedure*. 



3.2.2. 4 15. 10 £aLSai P-^LilSS.l&f-S.- ~ 

suotree : in cdm.type.c^nodft.ref » — node to be resolved 

pass ' in integer range 1..4; — pass of overloading algorithm 

result.rea : in cdm.t yoe . c_node_r ef } — type of result required in context 

in which this node-appears 
parain.avai I : out cdm_typd.c_node._ref; — seq of types which nay result 

after first pass 

resolved : out boolean; — set to false if the expression can*t be resolved 

on the first two passes 



3.2.2.415.11 iide.-£lJ_e.cJ,s.. ~ None' 



3.2.2. 415.12 .iaaili&tim,. - 

case NODE type of suotree> is 
when INDEX> *> 

r eturn ; 
when CONSTRAINED^ *> 

ov_constrnd (subtree) 
when RANGE > *> 

overloadrng (subtree* "any type") J 

if RANGE expressions are universal integer> then 
SET to predefined integer> 

end if; 
when others »> 

INVOKE cl_error> 

end case; 



3.2.2.415.13 _iaSQ2--i£ fiSSiaaSS ££afi£._l&d« - None 



3.2.2. 415.14 tiaS-lSS at Qjia S tr uctu res . - None 



3.2.2.416 iy.ll2L2L2L2.21* ~ c I _dsc r t_r_v 
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3.2.2.41o.l £.j.L22.££« * InvoKe an overloading procedure for a node in tie class 
OSCRT_RANGt_VOlD. 



3.2.2.416.2 Ass.iii2p.ii2ns. - SUBTREE (the first parameter) is in tne class 
DSCRT.RANGE.VOID. 



3.2.2.41&.3 laalaaaalaiiaa UUl£ua3£v - This subprogram is written in Ada. 



3.2.2.416.4 UiSSt E2C.y,£S,ive.i.jt. - This subprogram is used recursively. 



3*2.2.416.5 N^StSdi iiiiHiGL* ~ ovp.cfas 



3.2.2.416.6 Ho.2i Qaa£ad^Q.c.i£S.. - None 



3 .2 .2.416.7 In.L22.tL Q.§.Q.2Sl&2.aS.i2£ « ' - Non e 



3.2.2.4lo.8 Sahor o g r„ a q\ V i, 5 t, b, j 1 1 %, y, • - Outside Package 



3.2.2.416.9 Eu£J£lifia£££a££ili«LL£« ~ This subprogram is a Procedure- 



3.2.2.416.10 Facaal P_ir.aiDaia£i. - 

subtree: in cdm - .type.c - .node_ref;— • reference to diana node, 
pass : in integer 1..4J — pass of overloading algorithm 

result_req : in c am_t ype • c.node.r ef ; type of result required in context 

i n wh i ch t h i s node appear s 
param.ava i I : out cdm_type • c_node_r ef j — seq of types which may result 

after first pass 

resolved : out booleand; — set to false if the expression can't, be resolved 

on the first two passes 
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3.2.2.416.11 iifi£z£ll££is • - None 



3. 2.2. 416.12 Aj.£££jLk&E« ~ 

case NUOE type of subtr ee> Is 
when V0I0> »> 

return ; 
when others »> 

INVOKE ci _dscrt_rng> 
ena case; 



3.2.2.416.13 !2iaSQ2aii£ ££2iaa&S £§LQ.2.Lm^ - None 



3.2.2.416.14 • ^xaOUlSS. Ot Q3ll l££U£iUf.e3» ~ None 



3.2.2.41? Su&atfiSLai- - el.exp 



3.2.2.417.1 EucaaSS.* *" Invoke an overloading resolution procedure for a node in 
the class EXP. 



3.2.2.417.2 Aiiusaiiaas. - SUBTREE (the first oaramet er ) is in the class EXP. 



3.2.2.417.3 XaaiSaaaiaiiaD. Language . - This subprogram is written in Ada 



3.2.2. 417.4 Uisji S.e.aHLSiy.eJ.v.* - This subprogram is used recursively. 



3.2.2. 417.5 tlail^a iiiitlLa* ~ ovp_clas 
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3.2.2.417.6 SiaSi QsaS.O.-lS.IlS.ia,!' ~ None 



3.2.2.417.7 Taxaai Qsaan^saaias* - None 



3.2.2.417.8 S.u.aa£ 231.2 ffi iiliailii^» " Outside Package. 



3.2.2.417.9 EuQ££iaQ££ r .2£,e.3uxe.. ~ This suoprogram is a Procedure. 



3.2.2.417.10 tataai P.ar.ajnat£££« - 

subtree! in cdm.type. c_nade_ref J — reference to diana node. 



3.2.2.417.11 iiia-Silaali • - None 



3.2.2.417.12 AXaaLiiaa* - 

case NODE type of subtree> is 
when AGGR6GATS> *> 

INVOKE ov.aggrega te> 
when *ALLOCaTQR> »> 

INVOKE ov.a I I ocator> 
when 3INARY> => 

INVOKE ov_binary> 
when MEM3ERSH IPX »> 

INVOKE ov.membersh i p> 
when NULL.ACCESS> -> 

INVOKE ov.nul l_acc> 
when PAR ANTHES IZE0> »> 

INVOKE ov_parenthzd> 
when QUALIFIED> »> 

INVOKE ov.qual i f i ed> 
when NUMERIC_LITERAL> => 

INVOKE ov.nura. I i t> 
when STRIN6„l.ITERAL> »> 

INVOKE ov.str.l i t> 
when USS0_CHAR> => 

INVOKE ov.used.char> 
when QTHE RS > => 

INVOKE cl.name) 
end case; 
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3.2.2.417.13 iiiiaQaitia -ass,aaa^ &£22£als2« - None 

3.2.2.417.14 i&asaiaS, 2t Qal3 £l£U£lU£££« - None 
3.2.2.418 Su22£22£aGl« ~ c I ..exp^vo i d 



3.2.2. 418.1 P.l£22S£» ~ Invoke an overloading resolution procedure for a node in 
the class exp_void. 



3.2.2.418.2 iSSiiaaiiaaS* " SUBTREE (the first parameter) is in the class 
EXP. VOID. 



3.2.2.418.3 IH2isaS0.laS.i2D. L3.22ii3,2£« " This subprogram is written in Ada. 



3.2.2.415*4 USSfl" &S2y,£5,iy.SiY.« - This subprogram is used recursively. 



3.2.2.418.5 N§SlS2 Wilkin. - o vp_c I as 



3.2.2.413*6 H2S1 QeQgndenq je.s, . - None 



3.2.2.418.7 Ia£2Sl U22S22' £22i2S • None 



3.2.2.418.8 5ii22£22£2i3 Vi&iaiiilX- - Outside Package 



3.2.2.418.9 EilQ2li2Qi££2£S,^lU£S,« ~ This subprogram is a Procedure. 
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3.2.2.416.10 ro.r:sai 2.a.La2£im» - 

suotreet in cdai_type. c.node.ref ; reference to diana node. 

3.2.2.413.11 iiiSz£liS.£lLl« ~ None 



3. 2.2. 418. 12 a.Ufi£jUi22»« " 

if NODE type of suotree> 3 V0I0> then 

return 
else 

INVOKE cl_exo> 
end if} 



3.2.2.4ia.i3 iiaaasilis. iaisaasi SsaacaisflU - None 



3.2.2.418.14 iiaaalSS 21 Structures. - None 



3.2.2.419 5utia£fl2£ai!l« " cl.gen^parm 



3.2.2.419.1 £u.£22£S» - Invoke an overloading resolution procedure for a node in 
the class GENERIC.? ARAM. 



3.2.2.419.2 iiiuffiaiiaas* - SUBTREE (the first parameter) is in the class 
GENERIC. PARAM. 



3.2.2.419.3 IjaaisaaaialiaH Uaaauaas* This subprogram is written in Ada. 



3.2.2.419.4 U.s.aa' &££y.££i.l2ll» ~ This subprogram is used recursively. 
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3.2.2.^19.5 ila5,i.P(i iilJlin . - o vo_c I a s 



3.2.2.419.6 l2£USad£Il£i£5- - None 



3.2.2.419.7 laiaai QgQe_n derides,. - None 



3.2.2.419.8 - SuiataataOi iiiiaiiitl- - Outside Package. 



3.2.2.419.9 £yQ£ii2a£E£.SL££<iULe. • - This subprogram is a Procedure. 



3.2.2.419.10 Fof-Esii P aL32Si,5£l • ~ 

subtree: in cdm.t ype. c.node.re f » — reference to diana node. 



3.2.2.419.11 iid^z£.Ila£ii- - None 



3.2.2.419.12 AJLaaLiltlffl- - . 

case NODE type of Sudtree> is 
when I N> *> 

INVOKE ow.in) 
when IN_0UT> »> 

INVOKE ov.out> 
when SU3PRQGRAM_DECL> => 

INVOKE ov_subp.dc!> 
when TYPE> *> 

INVOKE ov_type> 
when others »> 

INVOKE cf.error> 
end case; 



3.2.2.419.13 aiaaQSStiS GSnexalSSl. - None 
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3.2.2.419.14 iiasaiSi 21 ±£$.3. liLUSlULSl* - None 



3.2.2.420 IuaaLa2,L22» ~ c I .header' 



3.2.2.420.1 Eyxaasa* • Invoke an over I oad i n g r eso I ut i on procedure for a node in 
the c lass HEADER • 



3.2.2.420.2 di^MaLaiiaaS- ~ SUBTREE (the first parameter) is in the class 
HEADER. 



3.2.2.420.3 l22.il 3£Q.iiii2Q kaQ.2U£S£ • " This subprogram is written in Ada. 

3.2..2.420.4 Uific. £e.c.y,£S.ive.iv„. - This subprogran is not used recursively. 

3.2.2.420.5 filfiStasl- J*ililill» ~ ovp.clas 

3.2.2.420.6 HfiJi Qsasa^SHJLiSS* - None 

3.2.2.420.7 Iar.ae.5, isa^n d e n c.ia^ • - None 

3.2. 2. 420. a 2ii2fi£aa£aa Y s t.b ?, [ j,^Y» - Outside Package. 

3.2.2.420.9 Eaoa£iaQ££ia£££ , yX£« - This subprogram Is a Procedure. 

3.2.2.420.10 £a£aal P.jiLaissijsr.s* ~ 

subtree: in cdm.type • c.node.r e f J — reference to diana node. 
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3.2.2.420.11 iiaazSJLiaaiS • - None 



3.2.2.420.12 AJ.£££iihm. .- 

case MODE type of suotree> is 
■hen FUNCTI0N> «> 

INVOKE ov_function> 
when PROCEDURE> *> 

INVOKE ov.procedur e> 
when ENTRY> »> 

INVOKE ov_entry> 
when others »> 

INVOKE cl.error> 
end case; 



3.2.2.420.13 aiaaaasxu £s5iass.s £saa£.aiaa- - ^one 



3.2.2.420.14 taaisalss. al !23ia Slr.ua iuisa* - **one 



3.2.2.421 SiAa££C;ar.ji2!« • cl_iten> 



3.2.2.421.1 P^£2a5,£» ~* Invoke an overloading resolution procedure for a node in 
the class ITEM. 



3.2.2.421.2 AssyjEaiiaOS- - SUBTREE (the first parameter) is in the class ITEM, 



3.2.2.421.3 IiaiaiaalaiiaQ La&ail&aa* ~ This subprogram is written in Ada. 



3.2.2.421.4 y,s.e.a SsayXSiY-ai*.' ~* This subprogram is used recursively. 
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3. 2.2. 4 21.5 iiS5.i.S9l d±i!li£« - ovp.clas 
3 • 2 .2 • 421 • t> Mail UsaS.QllS.I2S.iai- - None 

3.2.2.421.7 lacaai asaaiisianiiis- - None 

3.2.2. 4?L.ii I«lbp.£aa£a2! yJLli&ili££* - Outside Package. 

3.2.2. -421.9 SuQSL!LiP.a^£l.25a^y.£S,« ~ This subprogram is a Procedure. 

3.2.2.421.10 Z3.LsMl§L&.§LLS.* ~ 

suotr eet in cdm_t y pe • c.node^re f ; — reference to diana node. 

3.2.2.421.11 iiSl£=£Ua£U. " None 

3.2.2.421.12 Aiaaciiaoi- - 

case MODE type of suotree> is 
Mhen PACK.AGE_80DY> *> 

INVOKE ov_pack_body> 
when SUBPRGGRAM_30DY> => 

INVOKE ov_subp_body> 
when TASK_80DY> => 

INVOKE ov_task_body> 
when USE> »> 

return 
when A00RESS> «> 

INVOKE ov_address> 
when RECQRD_REP> »> 

INVOKE ov.rec.rep> 
when SIMPL£ - REP> => 

INVOKE ov_simp_rep> 
when others => 

INVOKE c l.dec I > 
end case; 
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3.2. 2. 421.13 aiaaaaaiia -sssaass Ssaar.ai.aa' - "one 



3.2.2.421.14 taaaalsi ai aaia l££U£iu£a£« - None 



3.2.2.422 iiiaaLflSLaai* ~ c loiter at ion 



3.2.2. 422.1 £i£aaaa« ~ Invoke an overloading resolution procedure for a node in 
the class ITERATION. 



3.2«2.422.2 £asy.2iaiiaa5» - SUBTREE (the first parameter) is in the class 
ITERATION. 



3.2.2.422.3 laaiasaQialiaQ LaaauaaS • - This subprogran is written in Ada 

3.2.2.422.4 Lisaa" daaiif.Siy.ail* - This subprogram is used recu r s i ve i y. 

3.2.2.422.5 Ne.s£e,a ULlnin* - ovp.clas 
3.2.2.4 22.6 Deqeodsgq ,f„es, . - None 

3.2.2.422.7 ia£aai Qaaaaaaaaiai* - None 

3.2.2.422.3 Iuaaf.a2I.a2i £i£i&iii££ • ~ Outside Package. 

3.2.2.422.9 £aQ.£liaQZ££asa&U£a • - This subprogram is a Procedure. 
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3.2.2.422.10 C2£!2,i £ ££.£££ • ~ 

suotree: in cam^t yoe • c.node.r e f » — reference to diana node. 



3.2.2.422.11 S.io.e.-£ite.c.ii. - None 



3.2.2.422.12 ^iasciitia»« - 

case NGOE type of suotree> is 
when FOR { reverse) *> 

INVOKE ov.f or_rev> 
when WHlLE> => 

I NVQKE ov_whi le> 
when V0I0> »> 

return? 
when others »> 

INVQKE c I. err or> 
end casej 



3.2.2.422.13 i2iaaQaaii£ .QaSiaaiS ££Q££li£3« ~ None 

3.2.2.422.14 £aa<2ttlSS 21 lfc£UC.&i££.£- " None 



3.2.2.423 Sy.a2£0.2£22l« "* cl_name 



3.2.2.423.1 &iL£&2S,£» - Invoke an overloading resolution procedure for a node in 
the class NAME. 



3.2.2.423.2 AiSUTip.ijLo.QS. - SUBTREE (in first parameter) is in the class NAME. 



3.2.2. 423.3 Iaale.!B£aiaLLP.a L3.a2U2.aa* - This subprogra* is written in Ada. 
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3.2.2.423.4 !i£ia SaaaLii^al*.* *" This subprogram is used recursively* 

3.2.2.423.5 Ne.£i.e.a Within . - ovp_clas 

3.2.2.423.6 S2sasa!la2£iaS« - None 

3.2.2.423.7 lALa.SLl QaaSQdansiaS • - None 

3.2.2. 423.6" Suaaf.aSf.a21 iillailil^* ~ Outside Package. 

3.2.2.423.9 Eyaai±aQ££f^j£aa' ilf.a • ~" This subprogram is a Procedure. 

3.2.2.423.10 £aLJD3l £.aL3I0ai5£5, • ~ 

subtree* in cdm_t ype • c.node„r e f ; — reference to diana node. 

3.2.2.423.H iiaariiiaals- - Vone 
3.2.2.423.12 Aiaar.iiQ!a» - 

case NODE type of subtree) is 
when ALL> = > 

INVOKE ov.a I I > 
when FUNCTION_CALL) => 

INVOKE ov.func.ca I l> 
when INOEXED) => 

INVOKE ov_indexed> 
when SELECTED) =) 

INVOKE ov.selected) 
when SLICE> => 

INVOKE ov_sl ice> 
when ATTRIBUTE) »> 

INVOKE ov_attr i bute) 
when ATTRI8UTE.CALL) => 
INVOKE ov.attr.cal t> 
when others -> 

INVOKE ci. error) 
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eno case; 



3.2.2. 423.13 2ia3Qa3,i.U 2aiS.a£aS £aOS.Laiad« - None 



3.2.2.423.14 tiaffialSS. Si liaia laXU£lU£&2« - None 



3.2.2.424 S.JI 2a £32X521 • ~ cl^name^void 

\ 

3.2.2.424.1 Pj.Laa5.a- *" Invoke an overloading resolution procedure for a node in 
the c lass NAME.VQID. 



3.2.2.424.2 iiiiiaaliaas* — SU9TRFE (the first parameter) is in the class 
NAME VOID. 



3.2.2.424.3 I tip I eroen tat ion t^anq ya ge . - This subprogram is written In Ada. 



3.2.2. 424.4 ytiaa* £saU£liY.ai.Y.» - This subprogram is used recursively. 



3.2.2.424.5 ^£Stsa Jliltlijl* " ovp_clas 



3.2.2.424.6 nasi Qsaaniaflaiai* ~ None 



3. 2.2.424.7 Ia£3.££. Qependenc ie s. - None 



3.2.2.424.8 Iuaaf-22La2l y.isi.2.iJLL&y.« ~ Outside Package. 
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3.2.2. 4?4. 9 £!AQ£,li2Q/ Pxaaailif.S* ~ This suborogram is a Procedure. 

3. 2.2. 424. 10 Earjsai P-aLaaai.ar.s- - 

subtree: in cdm^type. c.node_ref > — • reference to diana node. 

3.2.2.424.11 S.i&&zZLLs.£±l» ~ None 



3.2.2.424.12 iiafltillUD^ - 

case NQDE type of subtree> is 
when VUI0> *> 

r etur n J 
when others *> 
INVOKE ci_name> 
end case* 



3.2.2.424.13 JUaaaaaiia £aaaasaa Saoataiad- - 



3.2.2.424.14 Saasaias, al Qala limaiunaa* - None 



3.2.2.425 2y.aa£aaLaiE« • cl_pack..def 



3.2.2. 425.1 ?.af.aaaa« ~ Invoke an overloading resolution procedure for a node in 
the class PACKAGE.DEF. 



3.2.2.425.2 As.s.ji2iati2a5« ~ SUBTREE (the first parameter) is in the class 
PACKAGE.OEF. 



3.2.2.425.3 laalSaaGiaiiaQ Laaauaaa* - This subprogram is written in Ada. 
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3.2.2.425.4 HiiSi dS.S.iiLSilS.ii.* " T his subprogram is not used recursively 

3.2.2.425.5 N£2&£a *i£Qil!« ~ ovp.clas 
3 .2. 2. 425.6 ttaii Qfi&&Q&U.£jLfil* — None 
3.2.2,425.7 Iataftl' QftaSOJlftnfiiSi* - None 
3.2.2.425.tf SiiSar.2Sli.ai2 Li&l&iJLl&X* *" Outside Package. 
3.2.2.425.9 £u2aiiaQ^££aj£S.4U£a« "* This subprogram is a Procedure. 
3. 2.2.425.10 E2f.2ai ZsiL&£§.S.§.L£. • ~. 

subtrees in cdm^type. c.node„re f J — reference to diana node. 
3.2.2.425.11 ii^s-£iie.als.. - None 



3.2.2.425.12 A JLaar.i£hrn. ~ 

case NODE type of subtree> is 
when PACKAGE. SPEO => 

INVOKE ov_pack..spec> 
when others *> 
return; 
end case; 



3.2.2.425.13 QiaS£lS&£.±S ESSSaSSS fiSGSiiaiSd* " None 
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3.2.2.4 2 5.14 i<a.»al£S. 21 i3la ilLU£lU££^« - None 



3.2 .2. 42b S.U2a£a2La!2« ~ cl_param 



3.2.2.426.1 PlLttaae.. - Invoke an overloading resolution procedure for a node in 
the class PARArt. 



3.2.2.426.2 AS2il!Saii2QS« - SUBTREE (the first oarameter) is in the class P ARAM • 



3.2.2.426.3 IaalS2SQiaiia!l Lmaaaaa* ~ This subprogram is written in Ada. 



3.2.2.426.4 Iliad. SaaU£S.i.iaJLj£» - This subprogram is not used recursively. 



3.2 .2. 426. 5 NaslSSi jiiliLLQ. - ovp^clas 



3.2.2.426.0 Hasi QaaaD.aaris.ias.- - None 



3.2.2.426.7 laia&t asasailanaiai* - None 



3.2.2.426.8 SiiaaiaSLaOL gilioJJLUx. - Outside. Package. 



3.2.2.426.9 £ u Q C ,fc i.QQ^P.r ag^SlULg « ~ This subprogram is a Procedure 



3.2.2.426.10 tacaal 2.ar.aaaiaf.s.- - 

subtree : in cdn»_type .c_node_ref » — reference to 

diana node. 
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3.2. 2. 426.il iiaarililSil- ~ None 



3 ,2. 2. 426. 12 ^iaatiihm. - 

case NQ06 type of subtree> is 
when IN> ~> 

INVOKE ov_in> 
when 0UT> »> 

INVOKE ov_out> 
when IN_0UT> ~> 

INVQKt ov_in_out> 
when others = > 

INVQKt el.error> 
end case; 



3,2.2.426.13 ZizzazmQ. £e.siaas.s - N°ne 



3. 2.2. 426.14 £iaj22ie.2. 2l QilLa Structures. - None 
3.2.2.427 S.y.aa£aaLa2l» ~ cl„rng_void 

3.2.2.427.1 £ui22S£« ~ Invoke an overloading resolution procedure for a node in 
the class KANGc.VOID. 

3.2.2.427.2 As.SiiaaiiSLn.S* - SUBTREE (the first paraneter) is in the class 
RANGE_VQ 10 • 



3.2.2.427.3 Iiiai3a§.n£aiiQ.n M n guage . - Th i s subprogram is written In Ada. 



3.2.2.427.4 y.s.52, Ea£y.£Siy.alz« "* This subprogram is used recursively. 
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J. 2. 2.427. 5 ^£Iied aittliQ* ~ ovp_clas 



3.2*2.427.6 tl£Si £Sfl.2.G.il£!2S.i£S. • - None 

3.2.2.4 27.7 laxaal QsafifldSHSLUS • - None 

3. 2.2. 427.8 SiaaLaaf.221 ~ Outside Package. 

3.2.2.427.9 £y.2££,iaO.Z,P.r»2££lur.£« This subprogram is i Procedure. 

3.2.2.427.10 Eatiaal PaLaasiarjL- - 

subtree: in cdm^type • c.node.re f i ~ reference to diana node. 

3.2.2.427.11 Uas=£llacjLl« - None 

3.2.2.427.12 ilaar.iiHffl. - 

case NODE type of subtree> is 
when V0I0> *> 

return ? 
when RANGE> »> 

INVOKE ov.range) 
when others =»> 

INVOKE cl_error> 
end case; 

3.2.2.427.13 ILUsnas^ic. Ke.££aa£3 ££Q££al£4. - None 

3.2.2.427.14 iiaattiSS. Q± lt£U£ly££S* - None 
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3. 2. 2.428 iiii2.£22C.i2» ~ cl.rep 



3.2.2.423.1 £ur.£2S£» "* Invoke an overloading resolution procedure for a node in 
the class REP • 



3.2.2.428.2 is.S.u.maJLL2,IlS« ~ SUBTREE (the first oarameter) is in the class REP 

3. 2. 2*428. 3 X2filsai£aiaii2Q. Laaauias,* ~ This subprogram is written in Ada. 

3.2.2.423.4 Us,e.<l R£s > y,£,iii£ > *lx« ~ This subprogram is not used recursively. 

3.2.2.428.5 Jie.H.gg. JLtli-ll • "". ovp.clas 
3. 2.2. 426.6 HaSi &£2&Qfl > &££.i£l« ~ None 
3.2.2.4 28.7 laiSSi 12sa^I2ilS.Il£iS,l • - None 

3.2.2.428.8 Iybp.r.o.sXaa Vi4ib.JJ.ilx* - Outside Package. 

3.2.2.428.9 EuQ.c.i,io.Q^,Pro.£e.iu.£e.. - This subprogram is a Procedure. 

3.2.2.428.10 £o.fJE&i P.iLC^i2ai.5.£5,» - 

suotree : in cdm.t ype • c.node.r e f > — reference to diana node. 

3.2.2.428.11 iiole.-£f i&S&s.. - None 
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3.2.2.428.12 ^iaaLima* ~ 

case NODE type of sudtree> is 
when A00RFSS> »> 

INVOKE ov_address> 
when RECQRO_kEP> »> 

INVOKE ov_rec.rep> 
when SI*PL£_REP> »> 

INVOKE ov_simp_rep> 
when others »> 

INVOKE cl_error> 
end case; 



3 .2. 2. 423.13 2il<lQ25.£.i£ s.sa.ge.s fiSD.*£2iSSl« ~ None 



3.2.2.426.14 fesaaaifia 2t Qaia SJ.LU£iU£ftl • - None 



3.2.2. <*29 liiSiacaacaiB' ~ cl_stm 



3.2.2.429.1 Ea£a2S.£« - Invoke an overloading resolution procedure for a node in 
the class STM. 



3.2.2.429.2 Ass.uaa£.i2QS« - SUBTREE ( the first parameter) is in tne class. ST*. 



3.2.2.429.3 Ij2al£2£D.iaiki20. LaEL2lAaS,£« "* This subprogra-n is written in Ada. 



3.2.2.429.4 Sis, 5 a S£S.ii££i.Y.S.iy.« ~ This subprogram is used recursively. 



3.2.2.429.5 Ne.s,ie.ii &iihj.n. " ovp.clas 
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3.2.2.429.6 HfiSi. StSttS.Hll£IliiiS5« - None 

3.2.2.429.7 Iaf.2££. QsaaQi£G£iS5« - Mone 
3.2.2.429.3 SuaaiaSLaa YiliaiiiiL^* - Outside Package. 

3.2.2.429.9 £^Q£^j.2Q^££a££ilijLt£» ~ This subprogram is a Procedure. 

3.2.2.429.10 £2f-2ial t&L£21§.L&L£. • ~ 

subtree: in cdm.type. c_node_re f ; — reference to diana node. 

3.2.2.429.11 ii<as=£llSS.II« - ^©n« 



3.2.2.429.12 Ala2f.j.il22j. 

case NOOE type of sudtree> is 
when LQ0P> »> 

INVOKE ov_loop> 
when A80RT> *> 

returns; 
when ACC6PT> »> 

INVOKE ov_accept> 
when ASSIGN> »> 

INVOKE ov_assign> 
when 8L0CK> *> 

INVOKE ov_block> 
when CASE> => 

INVOKE ov_case> 
when C00E> *> 

INVOKE ov_code> 
when C0ND_£NTSY> => 

INVOKE ov.cond.entr> 
when DELA Y> «> 

INVOKE ov_delay> 
when ENTRY_CALL> => 

INVOKE ov_en try.ca I > 
when EXIT> *> 

INVOKE ov.exit> 
when GOTO> => 

INVOKE ov_goto> 
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when IF> *> 

INVOKE ov.iO 
when LABEL£D> *> 

INVOKE ov.labeled> 
when NAM£0„STM> »> 

INVOKE ov^nauieo.stfli) 
when NULL.STfO »> 

return; 
when PRAG*A> »> 

INVOKE ov.pragma> 
when PXOCEDUR£.CALL> »> 

INVOKE ov.proc.cal!> 
when RAISE> *> 

INVOKE ov.raise> 
when RETURfO *> 

INVOKE ov.return> 
when SELECT> 

INVOKE ov.select> 
when TERMINATE> => 

return; 
when TIMED. ENTRY> »> 

INVOKE ov.t imed.ent> 
when others *> 

INVOKE cl.error> 
end case; 



3*2.2.429.13 Qj.a.sQo.s.iis, aaiiaaH SSQSLalad- - None 



3. 2.2. 429. 14 ££a.fflpj.e.s. 2L Structures. — None 



3.2.2.430 £y,b.pjr o.ar.a.21. " c I .sbun t.bo dy 



3.2.2.430.1 P.ltao.s.e.. - Invoke an overloading resolution procedure for a node in 
the class SU8UNIT.800Y . 



3.2.2.430.2 Assu(S2ti2IlS* ~ SUBTREE (the first parameter) is in the class 
SUBUNIT.BODY. 
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3.2.2.430.3 IsalajaQialiSQ L2.0.3USa£ • " This subprogra-n is written in Ada 

3 .2. 2. 430.4 U§.ast, ££C.^£ij.ve.iy.. - Thi s subprogram is not used recursively. 
3 • 2.2. 430.5 ^SSlSi &i.SJ2i.2* ~ ovp_clas 

3. 2 .2.430.0 tlaai !220.£O.&£ n .&i.££« None 

3.2.2. 430.7 IlLaal l2SflS.Qila!lS.l£2« ~ None 

3.2.2.430.6 Sy.aflL0.Sf.2S Vi.sj.aili£Y.« - Outside Package. 

3.2.2.430.9 Funct, i on/lPrpcedur e . - This subprogram is a Procedure. 

3.2.2.430.10 £2LEai • "* 

subtree: in cdm_type. c.node.ref i reference to diana node. 



3.2.2.430.11 iia.e.-g.f.te.c.^i. - None 



3.2.2.430.12 A.J.ao.Li^h.jn. - 

case NODE type of subtree> is 
when SUBPRUGKAM_aOOY> => 

INVOKE ov.subp_body> 
when PACKAG£_80DY> O 

INVOKE ov_pack_body> 
when TASK_B0DY> => 

INVOKE ov_task_body> 
when others = > 

INVOKE d_error> 
end case; 
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3.2.2.430.13 iii2Qflili£ Saa^aaaS £aaa£ai.aa« - None 



3.2.2.430.14 £saaalfii fil 2iLUaS.Ur.aS- - None 



3.2.2.431 £y,b.D.r aaLaai* *" cl_type_rng 



3.2.2.431.1 f.ur.aa££« "* Invoke an overloading resolution procedure for a node in 
the class TYPERANGE. 



3.2.2.431.2 iSSJAfflaiiSLQS* - SU8TREE (the first parameter) is in the class 
TYPE. RANGE. 



3.2.2*431.3 l2aJ.S2S,aiaJLLaa Laasuaas* ~ This sjDprogran is written in Ada. 



3.2.2.431.4 Liiaa EaaaLliiall* ~ This subprogram is used recursively. 



3.2.2.431.5 N^s.i5a ~ ovp^c I as 



3.2.2.431.6 aail uaaaadaaaias* - None 



3.2.2.431.7 lacaat uaaaaaanaiajs- - None 



3.2.2.431.8 Saaaiaataifl Visibility • - Outside Package* 



3.2.2.431.9 Ey.nc.iio.aZ.S.ta^a^aLS* ~ This subprogram is a Procedure. 
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3.2. 2. 431.10 t2L<Z2.L ? aramgter s . - 

suotree: in cGTt„.type.c_node_ref ; — reference to diaria node. 
3.2.2.431.11 iisLe.-£if,e.c.i.£. - None 



3.2,2.431.12 AXaflliitllS- - 

case NODE type of suotree> is 
when RANGE> »> 

INVOKE ov.range> 
when others *> 

INVOKE ov_constrnd> 
end case; 



3.2.2.431.13 2iaaa2s.£..U Mssiaass Ssaataisd* • None 



3.2.2.431.14 tiaaaias at aaia SiLusiutia* - None 



3.2.2.432 SuLiar.P.2Laa« • c I _.type_spee 



3.2.2.432.1 £U£.a2SL£» ~ Invoke an overloading resolution procedure for a node in 
the class TYPE.SPEC. 



3.2.2.432.2 As.£itmaJLi2.£l£« " SUBTREE (the first parameter) is in the class 
TYP£_SPEC. 



3.2.2.432.3 X;2fll£Q^DJLa.LL2Q, LiiaauaS£« ~ This subprogram is written in Ada. 



3.2.2.432.4 !2§,e.a Re.aUL£.5.ii§.ly.» - This subprogram is not used recursively. 
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3.2.2.^2.5 ^SSiSil ^.itJlin. - ovp_c!as 

3.2.2. 432.6 Hfiii Q.Sfi.aaSlailU.iSi* *" None 

3.2.2.432.7 laLaa.i tiaaaasts.Q.fiiai • ** None 

3.2.2.432.8 2ii2ar.2SXaffl y.is.i a j.1 - Outside Package. 
3«2»2®432.9 £^n£&i22Z,L£2,£ 1 . - This subprogram is a Procedure. 

3 .2.2. 432. io Earjaa! E,ar.ai2&£.££.s.* - 

subtree: in cdro_type. c.node.re f } — reference to diana node. 



3.2.2.432.11 SiStSzEIiSSis.* ** None 



3.2.2.432.12 AJ.a<2r.i£hin. - 

case NODE type of subtree> is 
when CONSTRAINED > »> 

INVOKE ov - constrnd> 
when ACCESS> =»> 

INVOKE ov_access> 
when ARRAY> *> 

INVOKE ov_array> 
when 0ERIVE0> => 

INVOKE ov_derived> 
when FIXE0> »> 

INVOKE ov_fixed> 
when FL0AT> => 

INVOKE ov_f I oat> 
when INTEGER> *> 

INVOKE ov_integer> 
when L_PRIVATE> }PRIVATE> »> 

return; 
when R£C0R0> => 

INVOKE ov_record> 
when TASK_SP£0> => 

INVOKE ov_task_spec> 
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when others *> 
INVOKE cl .error > 
end case; 



3 ,2. 2. 432. 13 QiaaaaaiiS. UaSSaSSl £aaa£aia£l* - None 



3. 2. 2,432. 14 gaaaaias, q± aaia . SlLusluiaa* - None 



3.2.2.43 3 laiiar.aaLa!2« ~ c I _un t t_b od y 



3. 2.2.433.1 2.uLaaia« Invoke an overloading resolution procedure for a node in 
the class UNIT_900Y. 



i. 2. 2. 433. 2 Aiaaiaiian 5 ,' *" SUBTREE (the first parameter) is in the class 
UNIT_90DY. 



3.2.2.433.3 IiaiataalaLLflQ Laaauaaa- ~ This subprogram is written in Ada. 



3.2.2. 433.4 Usagl 3laQ.SlLSiy.aXy.* ~ This subprogram is used recursively. 



3*2.2.433.5 ilsalasl ^iittia* " ovp_clas 



3.2.2.433.6 HaSi. Q,aaaQ^aHS.iaa« None 



3.2.2.433.7 laiaal Qaaaa&aaaiaa • - None 
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3. 2. 2. 433.d I«.lif.o.2£a3l Vi£i2.iii£j£* - Outside Package. 



3«2.2.433.9 £ii0.c.i > isa£££.2fiS.4UL£« This subprogram is a Procedure. 



3.2.2. 433.10 EarjBal iaLaiDaiaLs* ~ 

suotreei in cdrn_tyoe.c_node._ref J — reference to diana node. 



3.2. 2. 433.11 iiUft-Ptf - None 



3.2.2.433.12 .laaLi-tlffi. - 

case NODE type of subtree> is 
when PACKAGE_30DY> *> 

INVOKE ov_pack_body> 
when PACKAGE. OECL> »> 

INVOKE ov_pack.dc I > 
when SU8UNIT> => 

INVOKE ov.suDunit> 
when SURPR0GRA«.800Y> »> 

INVOKE ov_subp_body> 
when SUBPRQGRArt_OE*CL> »> 

INVOKE ov.subp.dec l> 
when others => 

INVOKE d_error> 
end case; 



3.2.2.43 3.13 ..UaQflS-iS. Jle.___2__ ££Q££-le-* - None 



3.2.2.433.14 ._a_pj.e._ Ql H-ta l-£U£-il£S£« - None 



3.2.2.434 Sil.a£aa£.ai. - c I .error 
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3.2. 2.434.1 E.iLP.ai^* - Report an error fron an overloading class procedure. 

3.2.2.434.2 A.iSU21fiii20.i« ~ None 

3.2.2. 434.3 I2ai£21££l£aii2a LsL£12U&a£« ~ This subprogram is written in Ada. 

3.2.2.434.4 UiSJl &£aHL£il&i.Y.» This subprogram is not used recursively. 
3.2.2. 43 4. 5 JiSSlSil jiiiCLin. - ovp_cias 

3.2.2.434.6 Haii. t}£a§.f2a'§.2£i£,S« ~ None 

3.2.2.434.7 Usa&QilS.IlSLiSL.S* ~ None 

3.2.2.434.3 SuaataSLaffi liSiaililY.* - Within Package Only. 

3.2.2.434.9 £.UQ£,iia£l£,£L2£S > ^u. r .§.» This subprogram is a Procedure. 

3.2.2.434.10 EarjS&l 2.aLaEaJL££I« ~ None 

3.2.2.434.11 Sias=£il^ail« - None 

3.2.2.434.12 AJ.aa£i * 

ERROR #15500> 
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3.2.2.434.13 iiiaQa5.ti£ 2£il3.29^ ££n S £,aiea. - 

SEVERITY 

15500 S inconsistent node type 



3.2.2.434.14 iiaaalas. al !2aia ILLuaLiiLaa* - None 
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3 .,2 .2. 435 JLafiaaaS* " static_exp 

3.2.2.435.1 £,>i£afiSS« " This package provides the capao i i i ty to perfom static 
expression evaluation on aJ I static within a given subtree* 

3 •2.2.435.2 NuaaaL at Suaa£o.ar.;is£. - 23 



3.2.2.435.3 Qaaaaasaaias. an QiD.££ Elaalsasai tat Saaa- - cdm_tyoe 



3.2.2.43 5.4 Ajjd.xiio.aaJ. QS.2S.Q.!lS.2S.ilS. L2.L Ea^X* • con.rcan 



3.2.2.43 5.5 fcafifcaaft lUSZilLQ&kLOS. • - 

— when used by overloading resolution, eval is called with the 

— exp in the attribute call. When used in the static expression 

— evaluation function* eval is called with the root of the 

— current container. 

procedure eval (suotree: in cdm_ty pe • c_node_r ef ) i 



3.2.2.43 5.6 EJ.3aaL2t.iaQ. £a!§.« None 



3.2.2.43 5.7 sL&aaalSS. SI ELaia 5.i£Ua!U£.££« ~ None 



3.2.2.43-6 Siiaar-aatas* ** eva * 



3.2.2.436.1 £u£aa§.£» . *" This routine evaluates all- the static exoressions 
(section 4.9 of rim) contained within the given Diana subtree. 
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3.2.2.43o«2 AiiyHii2ii2Ii5« " None 



3«2«2.436.3 JLi32J.afll£0.£a£i o ,Q Lan.2iiaS£« ~ This Subprogram is written in Ada* 



3.2.2.43o.4 Uifid. R£c.u£Sj.veJ.y.. ~ T his subprogram is used recursively, 



3.2.2.436.5 &e.£JL5<l MiliLLfl* " static.exp 



3.2.2.436.6 Hfl££ i2Sfi.ao.d£ESJ.£.£ • " None 



3.2. 2.436.7 Iaf-SSi Qsa£D.d&SS>ie.l« - Hone 



3.2.2.436.8 Suk2f.flar.20tt LLsifliiil* • - Outside Package. 



3.2.2.436.9 -i;iniii2E££l2S SISALS, • - This subprogram is a Procedure 



3.2.2.436.10 £o.L2§i ZZL&SlzL&Lk • " 

subtree 2 in cdm_typ e. c.node.r ef J — points to subtree* all of whose 

contained static expressions are 
to be evaluated. 



3.2.2.436.11 SidSr£Xl5£iS • ~ None 



3.2.2.436.12 ' Alap.£lilljDe - 

i f SUBTREE /= void then 

case SUBTREE*NODE_TYPE> is 

when ,f aggr ega te" => aggregate (subtree) 
when "allocator" *> allocator (subtree) 
when "binary" => binary (subtree) 
when "conversion" => conversion (subtree) 
when "nu M _a ccess" => nu 1 1 ..access (subtree) 
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end 



end 
i f 



when "num-er i c.l i tera I " * 

. when "par ent h is i zed" *■>• 

when "qualified" => qual 
when" string. literal" *> 

when "used. char" »> used 

when "used.ob ject. id" *> 

when "all" *> 

when "attribute" *> 

when "a tt r t bute.ca 1 1 " => 

when "f unct i on^ca I I" *> 

when "indexed" »> 

when "selected" »> 

when "slice" *> 
case 



> numer i c.l i ter a I (subtree) 
pa r en th i s i zed (subtree) 
i f ied (subtree) 

s tr i ng_| i ter a I (subtree) 
.char (subtree) 

used. ob ject.f d (subtree) 

all ( subtr ee) 

attribute (subtree) 

a ttr i bute.ca I I (subtree) 

f unct ion. cal I ' (-subtree) 

indexed (subtree) 

se I ected ( subtree ) 

s I i ce ( subtr ee ) 



3. 2. 2. 436,13 *H aano.s.ij.c. ZllttlZS. ££0.ar.aisg.. - None 



3. 2. 2. 436,14 £*ajBai23. 21 CUtSL l&£.U£ltt£.£l« - None 



3.2.2.437 Siibaro.af.2a. - aggregate 



3.2.2. 437.1 Eu£E2S.e • 
express i ons. 



- This routine evaluates the 



"aggregate" nodes 



i n 



3.2.2.437.2 As.s.u.jno.^i.2.121* None 



3.2.2.437.3 IsaisafiQiaiiaQ LaaauaHS* - This Subprogram is written in Ada. 



3.2.2.437.4 Sis^d. S§.£UI,£iY.al.Y.» This subprogram is used recursively. 



3.2.2.437.5 Ne.s.Ud UXJLtLLJl •. ~ static.exp 
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3. 2.2. 437.6 His! 12£,fi,a n .^§ n .£iaS» " None 



3 • 2. 2- 437. 7 Ia£3Si 0,£&&Q4££l£i£2 • None 



3,2,2.437,8 Snb.pjrft2La.iB Vislb il ? t;y . - Within Package Only, 



3,2,2. 437,9 £uac.i > ifl£i£P£2SaitULS • • This subprogram is a Procedure, 



3, 2.2,43 7. 10 ?(2oal £aLaffi£i£££« - 
suDtree : in cdm_type.c - node_r ef J 



3.2,2.437.11 £j.4e.-£if sals, - None 



3.2.2.437.12 4i£fl£,iit2a« - 

if subtree, sm_va iue * void then 

eval ( sub tree . sm_const ra i nt ) 
number of elements :» 0 
a I l.subscr i pts.stat i c : = true 
except i on_r a i sed t- false 

for ALL elements in subtree. as_l i st > loop 

number of elements :» number of elements + 1 
if ELEMENT* node_tyoe = named**> then 
eval ( e I ement .as.exp) 

if e I ement .as„exp,sm..va I ue * void then 

a I l_subscr i pts_stat i c s« false 
elsif e I ement .as.exp. sm^val ue * ex cept i on_rai sed then 

except ion^raised ' - true 
end if 

else 

eval (element) 

SET a I l_subscri pts_stati c and exception raised as above. > 
end i f 
end I oop 

If al I ..subscripts., static then 
if excep t i on_ra i sed then 

sub t ree • sm.va I ue • — except i on_ra i sed • 

else 

CREATE an array sequence of "number of elements" length. > 
for ALL elements in subt r ee.as. I i s t> loop 
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insert element or e I ement • as.e xp into array sequence 
end loop 

subtree •sm.value s= ARRAY sequence > constraints 
end i f 
end if 
end i f 



3,2. 2.437. 13 QiaaafiiiiS USSSaaaS - None 



3.2.2.437.14 feiaialSS. al 2a£a. S£LUaiJ2L£S« - None 



3.2.2. 43 8 SyLSaiiaa £.§.!• ~ at II 



3.2.2.438.1 £y.£aaSS« - This routine evaluates the "all" nodes in expressions- 



J. 2.2. 438.2 iSS-UE-ftiiaaS* - None 



3.2.2.438.3 laalSSaQiaLLsa LanauaSS* ~ This Subprogram is written in Ada 



3.2.2.438.4 Us.e,g, Re.2.u£S,ivs.i^« - This subprogram is used recursively. 



3.2.2.438.5 Ne.s.ie.d, Wi£hj.n. - static_exp 



3.2.2. 438.6 HflSi QgaSQ S t£Q£i aS « - None 



3.2.2. 438.7 Ia££Si £j*a£fl2 , £Iiai£.S-» " None 
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J • 2.2. 438 • 8 SiiiliiLaaLilQ ii&JLlilY. • - within Package Only. 

3.2.2. 438.9 Funct t on, /.procedure, . - This subprogram is a Procedure. 

3.2.2. 433. 10 £2£fflal • " 

subtree : in cdm.type .c^node^r ef ; 

3.2.2.438.11 iiole. = £lie.c.ii. - None 

3.2.2.438.12 AlSaLiihin. - 

if suotree. sm_value * void then 

eval ( subtree. as„name) 
end i f 

— note we assume nuli.ail is void. 

3.2.2.438.13 aia2Q2£iiSL £&££aSS2 ££U££ai£4« " None 

3.2.2.433.14 ^OialSS. fit iiaia ii£il£lil£S£- - None 
3.2.2.439 Siib.a£O.S£aai» *" allocator 

3.2.2. 439.1 P.y.£2,o.s.e. • - This routine evaluates the "allocator" nodes in 
expressions. 

3.2.2.439.2 ASSU!Si2iiaGS • *~ None 
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3. 2.2. 439.3 Iaal*a&Q.£sli±£Q. L&G.2Uaa£« ~ This Subprograu is written in Ada. 

3.2.2. 439.4 UiSU ££S.ii£iiiail« ™ This subprogram is used recursively. 

3.2.2.439.5 filftSlflU aiiilia* - static_exp 
3 .2.2. 439 .o HaSi Q-SfiSLQilSD. Q.LS.1 • *" none 
3.2.2. 439.7 IJLia§.i USfiSQJSlS,a£i«5» ~ None 

3.2.2.439.3 Sy.aaf.aaf.ain v '?». t ?'.! ,i^Y» - Within Package Only. 

3.2.2.439.9 £aQa£iaQ£Pf.aaa&iiL ~ This subprogram is a Procedure. 

3.2.2.439.10 £o.£i2il PaLaffiSiSLi* ~ 
suotree : in cdm^type .c^node.ref » 

3.2.2.439.11 Siiflrfiltafiia* - None 

3.2.2.439.12 ^iSfitiitia* ~ 

if subtr ee • sm.va I ue * void then 

evai ( subt r ee. as_access_con st ra i nt ) 
end if 

3.2.2.439.13 Qia.snas.tiS ^SSS^ass. <£enejra£e.a. " None 
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3. 2.2. 4 3 9. 14 tiaajiiias at iala lUU£lit££2.« - None 



3.2.2.4 40 Sjji Jia£fl2£a!H« - binary 



3.2.2. 440.1 EiiXaasa* - This routine evaluates the "binary" nodes in 
expressions. 



3.2.2.440.2 lS.SUffifli.ian2* - None 

3.2.2.440.3 XuaiSSafliaiiaQ La&auaas* - This Subprogram is written in Ada. 

3.2.2.440.4 Lisaa £&£U£.Siy.&lx« - This subprogram is used recursively. 

3.2.2.440.5 Ngs.^j»a y t frfr j n. - stattc„exp 
3.2.2.4 40.6 HflSi P.£aaa4£n£iSS* - None 

3.2.2.440.7 lanaai D.saaaa'aaaiaa* - None 

3.2.2.440.8 l!iaa£fla£3a y t,5 \ M tv . - Within Package Only. 

3.2.2.440.9 £unaij.aQ£££flSaaU£S» ~ This subprogram is a Procedure. 

3.2.2.440.10 Ea£jsa! £,a£afflaia£s« - 

subtree : in cdm - type.c - .node„ref J 
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3. 2.2. 440. LI iisi§-£f,f,e.££s. - None 



3.2.2. 440. 12 Ala-fl£iiil'ffl« ~ 

if sub tree. sm„.va I ue » void. then 
eval ( subt r ee.as.expl ) 
eval t subtree. as_exp2) 

if SUBTREE. AS_BINARY_aP*NOOE type * ,r and_th en"> then 
if subtr ee.as.expl.sm^va lue • 0 FALSE> then 

subtree. sm_va I ue :* sub tr ee. as.expl • stn_va I ue 

else 

subt r ee. sm.va I ue :* sub tr ee.as_exp2 • sm_va I ue 
end if 

else — binary_op is "or^e I se". 

if subtree.as_expl.sm_va lue « 0 FALSE> then 
subtree, sm^va I ue :* subtree.exp2. sm_va I ue 

else 

sub tr ee • sm_va I ue :* subtr ee.expl • sm.va I ue 
end if 
end if 
end if 



3.2.2.440.13 iiaaaasiia Haiiaas5 Sanar.ai.sd- - None 



3.2.2.440.14 £xasal£S °L 2a.U SlLy£lil££S« - None 



3.2.2.441 5.y.iip.r o.2f.2E« - conversion 



3.2.2.441.1 EiiLafl^e.. - This routine evaluates "conversion" nodes in 
expressions. 



3.2.2.4 41. 2 ASlMJSaiiani* ~ None 



3.2.2.441.3 l2jalS!DS.IllSii5D. LSIiatil£S« ' This Subprogram is written in Ada. 
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3.2.2. 441. «t LliSfi &£S.y.£Sil*il» ~ This subprogram is used recursively. 

3.2.2.441.5 NfiS.Lsa' ~ static.exp 

3.2.2.441.6 Hflii Qsaan4aa£ifi£- - None 

3.2.2.441.7 lanaai Qaasndaaaiai* - None 

3.2.2.441.8 Sy<2£r»2SL22! iiii&jLLi&Y.* Within Package Only. 

3.2.2.441.9 Funct ton/Procedure. - This subprogram is a Procedure. 

3.2.2.441.10 £2£Eai PaLaffialsii* - 
subtree : in cdm.type. c.node.ref ; 



3.2.2.441.11 Siae.-ff.fe.cXS* - None 



3.2.2.441.12 Aj.afl£iiJim. - 

if sub tr ee • sm.va I ue * void then 
eval (subtree.as.exp) 

if SUBTREE. AS.EXP /» void and then subtree. as.name. 
sm.def .sm.tyoe.spec 

if SU8TREE .AS.EXP is a raised except ion> then 
is a static type mark> then 

suotree. as. value := RAISED exception> 
elsif CHECK. CONSTRAINT called on subtr ee.as.exp and 

sub tr ee. as.name. sm.de fn. sm_type_spec> then 

— constraint is satisfied 

if THE type mark is an array type with different bounds> then 

subtr ee. sm.val ue : = MODIFY bounds on subtr ee.as.exp.sm.val ue> 
else 

subtree. sm.va I ue : * sub tr ee .as.exp • sm.va I ue 
end i f 

else 

subtree, sm. value exception rais.ed 
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end i f 
end if 
end if 



3 .2.2. 441. 13 Uia3E2S.£ic. £SiJ5i2L2£.§ £&D.£.f.a.&£4« " None 



3*2.2. 441. 14 Ls.ajsaJ.SS. 2l il£il£iU£SS« - None 



3.2.2.442 2y.aaf.aaL3!* ~ f unc t i on_ca I I 



3.2. 2.442.1 ~ This routine evaluates the "function.caJ I" nodes in 

expression 



3.2.2.442.2 iSSUffialianS* - None 



3«2.2.442.3 IialS2£Q.lalti5!l LaaaU2i£« ~ This Subprogram is written in Ada 



3.2.2.442.4 Us.e.a SL£>£y.£ii v .§.iY.« ~* This subprogram is used recursively. 



3.2.2.442.5 Nsslsa" &i.£.ai2» " static„exp 



3 .2.2. 442.6 ^211 Qsa£Q^£fl£i£l« ~ None 



3.2.2.442.7 laxaai Qsaaa^SaSlS. 1 • ~ None 



3.2.2.442.8 5uaaf.aaLa{2 i£iSiaiiiiy.« - Within Package Only. 
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2«2.2.442.9 SiiQiiian Z,Pi*2£S.d.!J.L* • ~ This subprogram is a Procedure. 



3 «2.2. 442.10 £acaai 2,ar.as£i.s£a» *" 

suotree s in cdm_type.c_noae_ref ; 



3.2.2. 442.11 $ i.qje-Ef f ecfrs, . - None 



3 .2»2« 442. 12 Aj.aar.j.&hm,. - 

if subtree. Sin. value » void then 

INVOKE eval on ali the parameters of this function call 
and count the number of parameters while doing so> 
if FUNCTION call is built in and first. parameter* sm.va I ue /* void 
and (numoer of oarams *2 *> second pa ram / » voi d) > then 
if f i r s t.par am. sm.va I ue » exception raised then 

sub t ree « snj.va I ue * = f i r s t.par am, sn.va 1 us 
elsif number of params 53 1 then 
case FUNCTION call> is 

when *> con.man.m inust function ca 1 I • sm.val ue * 

f i rst-param.sm.va lue) 
— and similarity for abs and 
end case 

elsif SECOND. PARAK.Sil.VALUE - exception raised> then 
suotree.sm. value ' 3 second. param. sm.va I ue 

else 

case FUNCTION ca 1 I > is 

when n + w »> con.man«add( first par am«sm.va I ue« 
second. par anw sm.va I ue) 

— and similarity for other predefined binary operators 
end case 

end i f 
end if 
end if 



3.2.2.442.13 Qia2QflSiiS. ££££a2S.S Gen^r^i-^. - None 



3.2.2.442. 14 £x,aisaiS£ SI &2la Sl£il£i.U£lS • - None 
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3.2.2.443 £u.b.2,r Q.a£j»2j. * indexed 



3.2. 2. 443.1 2.Uf.&2££« ~ This routine evaluates the "indexed** nodes in 
express i ons. 



3 .2. 2. 443- 2 ££SilSfl.£ j.£LJ2S • " None 

3.2.2.443.3 Iiaall2£Qiaii2a L,an quaere . - This Subprogram is written in Ada. 

3.2.2.443.4 Uisd. Ee.c.y,£iive.iy.. - This subprogram is used recursively. 

3.2.2.443.5 £Jss..LSd. liiihln. - static_exp 

3.2.2.443.6 Hqs,^ fleQgQlq"-.? i, qs,. - None 

3.2.2.443.7 Xaraai US££n£e.ncJ i e.s. ~ None 

3.2.2.443.8 Su5lfir.aa£3!!l yi^iHiiilX* - Within Package Only. 

3.2.2.443.9 F_u nc, t i pn/[ P, r o ced qr e . - This subprogram is a Procedure. 

3.2.2.443.10 £2£I2al P ar.^meters . - 
suotree 5 in cdm_type .c_node_ref ; 

3.2.2.443.11 S, i,de-£f f ec r t, s. - None 
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3.2.2.<»43.12 Aiaatiihgj. - 

if subtree.sm,.. value * void then 
aval (subtree.as.nane) 

aj l_subscrtpt_def ined :* a I l.subscr ipts.stat i c s» true 
for ALL "exp M s in subtree. as_exp_s.as_l i st> loop 
eval (exp) 

if exp .si.va I ue * void then 

a I I _subscr i p t s_s tat i c :» false 
elslf EXP.SM.VALUE * exception ratsed> then 

a I I .subscr i p t.def ined :* false 
end i f 
end loop 

if a I I _subscr i pt s_stat i c then 

if not a I I _subscr i pt_def ined then 

subtree • sm_va I ue := EXCEPTION raised> 

else 

current^va lue : * subtree • as ..name* sm.value 
for ALL w exp w s in subtree.as_exp_s.as_? i st> 

current.val ue s» CURRENT_VALUE indexed by exp • sm_va I u e 
or exception raised if subscript out of bounds. 

end loop 

subtree. sm_va I ue curcent^va lue 
end if 
end if 
end i f 



3.2.2.443.13 Qla£Q£S._j.c. £anS£aiSll« - None 



3.2.2. 443 • 14 „X^2)2iaS 3lL 5, t r US tVf 95 « * None 



3.2.2.444 Sj±2fi.La2La,!!l« ~ membership 



3.2.2.444.1 P_!_r.P.2L££« ~ This routine evaluates "nembersh i p M nodes in 
express i ons. 



3«2.2.444.2 A s.s.uaiai.ian.5 • - None 
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3.2.2.444.3 l22lSiS*QLi^*i20. LiQ.i2U2.2S • ~ This Subprogran is written in 4da. 



3.2.2.444.4 US.*! &££y.£liy.&JL&* - This subprogram is used recursively. 



J. 2. 2. 444.5 £iS£i.5a; - static_exp 



3.2.2.4 44 «b Uasi QsaaailS.IiS.iSS* ~ None 



3.2.2.444.7 Ia£a3.i asa2n^ailSiS5» - None 



3.2.2.444.8 Su.b.2r.o.2r.aui Y i sj.oj, 1 j,tY« ~ Within PacKage Only. 



3.2.2.444.9 n c, <; I o. q ( m P rg c q flyr. e . - This subprogram is a Procedure. 



3. 2.2. 444 .10 Eaosal EaLasalsxi* 

subtree • in cdm - ,type.c.n^5de - .ref ; 



3.2.2.444. LI USlS=£Uai2ii. - None 



3.2.2.444.12 AJ,50.£iih(n. - 

if subtree. sm^value = void then ~ „ 

eval ( subtr ee. as.exp ) 
if subtr ee.as_exo /= void and then 

SUBTREE • AS_TYP£ range is staticX then 
if SUBTREE. AS_EXP is a raised exception> then 

subtree. sm_val ue RAISED exception> 
els i f 

SUBTREE. AS^EXP satisfies subtr ee. as. type. 

range's constraint (use check.constrai nt )> then 
subtr ee • sm_va I ue : = true 

else 

subt r ee. sm.va I ue := false 
end if 
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en d if 
end i f 



3.2.2.44*. 13 aiaanflitia fissiaa&s ££Q£r.ai£d- - None 



3.2.2.444.14 feiaiBftiAS. 2t ltr.UfiiUf.fiS.- - None 



3.2.2.445 SufiLttiaSLaa!* ~ null_access 



3.2.2.445.1 P iJLLaaiS, • " This routine evaluates. the w nul I .access" nodes in 
expressions. 



3.2.2.445.2 AaiUSlfiiiaQJS* " None 



3.2.2.445.3 l3ialS2l£a£a£iaa LaaauaaS* - This Subprograa is written in Ada. 



3.2.2.445.4 &££u.r.,SiY.e.l£. - This subprogram is not used recursively 



3.2.2.445.5 N.£Sisa jdiitlill- - stat ic.exp 



3.2 .2.4 45 .6 Hfiil Q£22.Q<3S.D.£i£S» None 



3.2.2.4 45 .7 Iaiaai QSflSQllSIlSLLsi* ~ None 



3.2.2.445.8 5ufi£L.fl3£a!S Vi£i£ilil£« - Within Package Only. 
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3.2. 2. 445. 9 P,uO.SLiiaa££.La.SS,lyia« "* This suoorogram is at Procedure. 

3.2.2.445.10 £2£2ai &££d St ~ 
subtree : in cdm_typ e.c_node_r ef 

3.2.2.445.11 S LflSTlfilfcSSfcS « - None 

. 3.2.2.4 45.12 AiaaLill2<2« - 

if subtree. sjn.va Jue » void then 

subtree. sm^va I ue s* THE value 0> 
end if 

3.2.2.445.13 aiaaaaslia Jlassaaa-s £sa£r.a£sd* - None 

3.2.2.445.14 iaasiaiss. ai Qaii lituaiunai* - None 

3.2.2.446 £jAb.2£a2£Jim» - nume r i c_J i ter a I 

3.2.2.440.1 Ey.f.aa2.S> ~ This routine evaluates the "numer ica I _l i tera I '* nodes in 
expressions. 

3.2.2.446.2 As.sjjn}££j.2n. < §. ~ None 

3.2.2.446.3 IflaiSfflliaJ&sLiiaQ Language. - This Subprogram is written in Ada. 

3.2.2.446.4 Us.ed^ ES.aur.SilS.il* ~ This subprogram is not used recursively. 
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3.2.2. 446. 5 !ie.Si5fl ail&ig.* - s ta t i c_ex p 



i. 2*2.446. b Ho. 2,1 Qeaendenc i e,s . - None 

3 .2.2. 446. 7 iaiaai Qsaaaaaaalss- - None 

3.2.2.446.8 SufiflLaataiB V tsibi t i^y. - Within Package Only. 

3.2.2.446.9 £ua£li2Qil£LasaiiUJlS« " This subprogram is a Procedure. 

3.2.2.446.10 EaojajL Pacassiais- - 

suotree : in cdm_type.c_node._ref; 

3.2.2.446.11 _i-£=£U&££S- - None 

3.2.2.446.12 .iaa£i.-a2!» - 

if suO t r ee • sm^va i ue = void then 

subtr ee. ssn.va I ue : = con.man.conv.nuiiier f c_l iteral (suotree. I x.nura,rep) 
end i f 

3.2.2.446.13 iUasQa-tia Sassaaas fiaasLalaa* - None 

3.2.2.446.14 .iaaialas at aaia. l-£uaiu££s- - None 

3.2.2.447 Saa.£a2£a!2« ~ other_nodes 
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3.2.2. <t47,l PiAtaa&S* ~ Evaluate non.exor ess i on nodes tie nodes that don't nave 
" sm_ va 1 ue M attribute) 



3.2.2.447.2 l££US2 " None 

3.2.2.447.3 laaiSSSaiaiifiD. L2.Q.i2U2a£» This Subprogram is written in Ada. 

3.2.2.447.4 Uiea. 8e.au.f.SiY.e.iy.. - This subprogram is not used recursively. 

3.2.2.447.5 Ne,s,£e.a dUtiXLH' " static_exp 

3.2.2. 4 47 .6 Hg.il Qi*a££U2aaaiS.£« *" None 

3 .2. 2. 447. 7 Ia£Sai SsaSQS'SIiaie.i* ~ None 

3.2.2.447.8 5y.aaiaS£3!2 V i ? i b I j i tv . - Within Package Only. 

3.2.2.447.9 £unaliaQ££r.aas£UJ:is» This subprogram is a Procedure. 

3.2.2.447.10 Eaoal P.ar-ai2sls£s« - 

subtree : in cdm_type.c_node_ref J 



3.2.2.447.11 iisla-eif sail. - None 



3.2.2.447.12 Aj.aaf-iiD.1* " 

case GET arity of subtree> is 
nu I I ar y == > nu I i 
unary *'*> eval (subtree. sona) 
binary «=> eval (subtree. son a) 
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eval (subtree. son fc) 
ternary «> FVAL son a« son b* son c as aoove> 
abbitrary «> 

— then must be a sequence node 

temp s* FIRST element of sequence subtree.as.Iist> 
I oop 

exit when temp » void 
evai (temp) 

temp ' » NEXT element of sequence (or void 
i f none) > 

end loop 

end case 



3.2.2.447.13 aiaaoaiiia 2as.s.as£s GansLalaa. - None 



3.2.2.447.14 fc&aaaJLSS fll Slr.il£lil££S- - None 



3.2.2.448 SuHar.S3Laca!H« - parenthesized 



3.2.2.443.1 P iLttaas,. - This routine evaluates the "parenthesized" nodes in 
express ions. 



3.2.2.44 8.2 AsSilffialiaaS* - None 



3.2.2.448.3 IiBalS2£QJ5iiii2Q UaQSmgfl?* • This subprogran is written in *da. 



3.2.2.448.4 'Ji^o; £e.c.u.££XY. ej.y.. - This subprogram is used recursively. 



3.2.2.448.5 NaSlSSl HUUin* - static„exp 
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3.2.2. 443. o 



ti2&l iea£i2^11£iSS- - None 



3.2.2.448.7 



Iaiaai Q£&&£Ldfii2fi.L&£« - None 



3.2.2.443.3 



2u&P.££S£3!2 Visi&iiiil* - Within Package Only. 



3.2.2.448.9 



Fyiniet, j or|/ pr.o caojure . - This subprogram is a Procedure. 



\ 



3.2.2.4 48.10 F 0£m^i £,a£a2£&.££.i • " 
subtree : in cdm„tyoe.c_node_ref J 

3.2.2.448.11 £ j.4e.-P£f. S£&1 • - None 

3.2.2.448.12 . Uafl£ilHffl- 

if subt r ee. sra.va I ue » void then 
eval (subtree.as^exp) 

subtree, sn.va I ue :» sub tree.as_.exp • sm^va I ue 
end i f 

3.2.2.448.13 aiasattitiff. £&0££al£<i* - ^"8 

3.2.2.448.14 £aaflftia-S. 21 QSJLa lt£U£i.U£SS- - None 
3.2.2.449 £u.tl&£22.£2.2!« ~ qualified 

3.2.2.449.1 Pu£a25.£« — Thie routine evaluates "qualified" nodes. 



3-946 

"Use or disclosure of -technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Compiler ^lacn « ne-Tndepenaen t Section C5 Specification CR-CP-Q059-C8 4 

1 Novenoer 1983 



3.2.2.<t49.2 AiSMSiiiailS* ~ None 

3.2.2.449.3 Isaisasaiaiifla LaO.aU2.aS.* ~" This subprogram is written in Ada 

3.2.2.449.4 Uaafl &£c.yjL5j.y.e.J.v,. " This subprogram is used recursively, 
3*2.2.449.5 Nfiaiag. Wj.iJ2±!l. - s tat i c_exp 

3 .2.2. 449. 6 nasi Qsa£fllla!lS.ift5 • - None 

3. 2. 2. 449.7 X 3 QSttSQSianSLiaS* ~ None 

3.2.2.449.8 £u.b.aL&af.aia Vis i b t [ i . - Within Package Only. 

3.2.2.449.9 Puoct ionZEEoced Mr e, . -This subprogram is a Procedure. 

3.2.2.449.10 £aLisal P-acasiaiaLS' - 

subtree s in cdm_type.c_node„ref ° f 

3.2.2.449.11 ii05z£lla£l5« - ^one 

3.2.2.449.12 AJ.aar.iih n$. - 

if subtree. sm^va lue » void then 
eval ( subtree. as. exp ) 

const ra i nt_check ( sub tr ee. as„exp • sm.va I ue» 

subtree. as„na«ie. sm^def n. sm.t ype_spec » 
va I i d ) 

if valid then 

subtree. sm^value : = subt ree.as_exp«SiU.val ue 

e I se 

suotr ee. sm_va lue : = RAISED exception (constraint error)) 
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end if 
end if 



3.2. 2.4 49 ,13 'iiaSQflStiS. EaS£si2£.S fiSCLS£aiS^* "* None 



3.2.2.449.14 tlM&iSLl 2L £U£a l£mZt.UL2.Z • " None 



3.2*2.450 Su.aar.aar.a2* - selected 



3.2.2.450.1 PuLaaig.. - This routine evaluates the "selected" nodes in 
expressions. 



3.2.2.4 50.2 4LS5Ly.maij.2XlS. - None 



3.2.2.450.3 l2Q±£3jaa£.a£JL2Q k2.0.£Ua££ • This subprogran is written in Ada. 



3.2.2.450.4 UsLsa* SS.S.!l££ii£lX» ~ This subprogram is used recursively. 



3.2.2.450.5 NfiSiegl Wi£hj.a. - static_exp 



3.2.2.450.6 Has! Q«a£Q2 < S.I!2.i.£:S.« *" none 



3.2.2.450.7 iar.aai Qsaanaanaias- - None 



3.2.2.450.8 luaaLaaLaai ZisialiilX* ~ within Package Only. 
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3.2.2.450.9 EiQ£ii2QZ.££2££d,U£,£ . - This subprogram is a Procedure. 



3*2*2.^50.10 EflfJSal £,3iliaiSaiS£SL« ~ 
subtree s in cdm.t ype • c.node.r e f » 



3.2. 2. 450. 11 - None 



3.2.2.450.12 Aiafl£i^h,oj. - 

if sub tr ee. sm.va I ue * void then 
eval { subtree .as. name ) 

if subtr ee.as. name. sm.val ue /* void then 

if SUBTREE • AS. NAME • SM. VALUE is exception rai sed> then 
sub t r ee • sm.va I ue subtr ee. as .name. sm.value 

else 

— translate field selector into on subscript 
r ec.or d.node := sub tree .as. name, sn.exp. type 
subscript s*0 
I oop 

get next id in record.node def (be it a comp.id* dsrcut.id* 

variant. port or null.comp) 
exit when next. id * null.comp or no nore ids 
if next. id » variant then 

loop until subscript of coresponding disciminant is 
found 

use that subscript to index aggregate and hence choice 

appropriate variant, 
get next. id in this variant 

e Ise 

subscipt J» subscript : = subscript +1 
exit when next. id » subtr ee.as.des i gnato r .sm. def n 
end if 
end loop 

if CQWP.IO or dscrmt.id found in loop above> then 

sub tree. sm.value :» index aggregate with subscript. 

else 

subtr ee. sm.va I ue : = "constaint error raised" 
end if 
end if 
end if. 
end i f 
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3.2.2.450.13 aia2Q2ali£ ^£11^225 &£a£££l*2» - None 



3.2.2.450.14 S.xai2al£SL 2L Q^la iiLU£i.U£ai« • "* None 



3.2.2. 451 iili2P,£0.2£2!2« ~ slice 



3.2.2. 451.1 Pj.£ao.ie,. - This routine evaluates the "slice" nodes in expressions 



3.2.2.451.2 A.s.lilEai.iaQ.s.* - None 



3.2.2. 451.3 Ia2i2S£a.l3.1i.2Q LatiaiiiiSLS • ~ This subprograu is written in Ada. 



3.2.2.451.4 Lisail S£S,U.£li2.Si^« ~ This subprogram is used recursively. 



3.2.2.451.5 Ne.2,l<Sd. UiUlia* " static_exp 



3.2. 2.45 1.6 Ho.il Q.S.Q.S.IUlS.QQ.Ls.2.* "* None 



3.2.2. 451.7 Iaxasi QiSttSIl4f.I!S.i£S« ~ None 



3.2.2.451.8 £ii.b&£22£2!2 Vj^iailily.. - Within Package Only. 



3.2.2.451.9 £yncJ^xp.n£P£o.c.edyxe,. - This subprogram is a Procedure. 
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3.2.2.4 51.10 tioxsal -.aLi2ai&LS.« - 
suotree : in cam_tyDe.c_node_ref ; 



3.2.2.451.11 ii ols-£l f.e.c.H . - None 



3.2.2.451.12 AJ.so.Lj.ihfn. - 

if subtree. sm_value » void then 
eval ( sub t r ee.as.name ) 
eval ( subtree .as_dscr t.range) 

end i f 



3.2.2.451.13 S2iaariflSii£ ££11*323 ££QS£a££Si« - None 



3.2.2.451.14 fexaaalss at aaia Sif.usiuf.ss* - None 



3.2.2.452 • s tr i ng_l t tera I 



3.2.2.452.1 Pj.ro.ase. • - This routine evaluates the "str i ng_ I i ter a I n nodes in 
express i ons. 



3.2.2.452.2 ASSUiSai.i2QS« " None 



3.2.2.452.3 l2aiS!E£!lJ*a£j.a n . L3.D.&U3.32.* This subprogram is written in Ada. 



3.2.2.452.4 Us.e.d. j£e.£ > y.£..£iy.sJ.X« This subprogram is not used recursively. 
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3.2.2. 452. b ii^SlSSi aliiilifi* - static.exp 



3.2.2.452.6 tiasl fi£££LD.3e.n,c.i.e..s.. ~ None 

3 • 2. 2. 452. 7 lacaal aaaSQStaQSiSl* - None 

3.2.2.452.3 SukttLfiSHiia iiiiSLiiill • - Within Package Only. 

3.2. 2. 452. 9 Ei4Q£iiP„a££L2£ai2U!:£ • ~ This subprogram is a Procedure. 

3 .2. 2. 452.10 £,2LJ2ai fj^r ame, <^ ef.s. . - 
subtree : in cdm^type.c.node^ref ; 



3.2.2.452.11 ii^a = £lf - Hone 



3.2.2.452.12 ^i£fl£iit22t. - 

if subtree. sm_value = void then 

for EACH character in subtree. I x_sym_rep> loop 

temp_value := APPENO translated character onto 
temp_va I ue> 

end loop 

subtree. ssi_va lue temp_value 
end if 



3.2.2.452.13 (UasaflaiiS £S2Sa2&S SSQa£ai^« - None 



3.2.2.452.14 Ejiamalsa al Qaia SiriisiitLss. - 

none 
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3*2.2.453 Sii.iaLaaf.2I" " used.char 



3.2.2.453.1 PjxaaSS,* - This routine evaluates the "ysed.char" nodes in 
expressions. 



3«2.2.453«2 l55UfflaJLi2!L3» - None 

3.2.2.453.3 IialaEafllaJLLaO. L3£2U2££. ~ This subprogran is written in Ada 

3.2.2. 453.4 UiS.iL SaiUtS-LY-ai*.* ~ This subprogram is not used recursively. 

3.2.2.453.5 5< 3.212! ilLi&JLQ«> static. exp 
3 «2. 2. 453. 6 HgSl Haaafl&aiiaiaS,* " None 

3.2. 2.453* 7 lataai daaaaaaaaias* - None 

3.2.2.453.3 5uaaLa££.Ii2i v I.Si.aLL itt* - Within Package Only. 
3«2.2.453.9 Funct^ i onyf.Pro qedqr a. - This subprogram is a Procedure. 

3.2.2.453.10 ELaLISal Par.ame % er s, . - 
subtree : in cdm^type • c.nooe.r ef ; 

3.2.2.453. 11 Sia'ariiiaaii. - None 
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3 . 2.2. 453 • 12 &lS2£,i.L£lfl>« - 

if s uo t ree • sm_v a I ue * void then 

sub t r ee • sm_v a J ue :* CREATE a "sma I I _ i nt M node with positive sign 
and sffl.digft » suotree«sm.def n.sm.pos> 

end if 



3,2. 2. 453. 13 uiaaaailia iisssaa&s ££0.££ais4* - None 



3.2.2.453.14 j=*asaiS£ 2l fia.U SiLUfililtaS* - None 



3.2.2.454 SuaaJLaaLia* ** used.ob ject_i d 



3.2.2.454.1 £yxa2S£» ~ This routine evaluates the "jsed.oo ject_i d w nodes 
express i ons. 



3.2.2.454.2 is^yjaaiiaOJi' - None 



3.2.2.454.3 I^algmaQlaliiZfl Lanauaas* This subprogram is written in Ada. 



3.2.2.454.4 il^aa &£aUL£JLLY. S.iY.« " This subprogram is not used recursively. 



3.2.2.454.5 NsSlSSL ¥ I t,frt n . - static.exp 



3.2.2.454.6 Hail Qsa&Clfl^SS LSS « "* None 



3.2.2.454.7 Ja£aa£ Qsaand§.aai§S • - None 
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3«2.2.454.d IlilfiLaaLaai iisJLaiJLLLfc* ~ Within Package Only* 
3.2.2.4S4.9 gunct lQn( procedure, . - This subprogram is a Procedure. 



3.2.2.454.10 EflLiSal f.ar.sUB - 
sudtree i in cdm.type.c.node.ref J 

3.2.2.454.11 iiaaz£tia2.iS« - None 

3.2.2.454.12 AiSfiri^hm. - 

if subtree.sm. value * void then 
d e f _ i d s* subtree. sm.de fn 
if DEP. IO'NGOE. TYPE « "number,! d"> then 

subtr ee. sm.v a I ue ' = def.id.sro.ini t.exp. sm.val ue 
elsif OEF.ID'NODE.TYPE » "const. i d"> then 

suotree. sm.ya ! ue : = def.id.sm.obj.def .sm.va lue 
elsif DEF^ID' NODE. TYPE * "enun. i d w > then 

subtr ee. sra.va I ue s* CREATE a "smal I .in t " node with positive sign 
and sro.digit * def.id.sm.pos> 

end i f 
end i f 



3.2.2.454.13 aiaaaaalLia «ass.aaas £saa£aiad« - None 



3.2.2.454.14 £na»2.ias, ai Saia liLuaiuLas- - ^one 



3.2.2.455 iyi2a£aaLain» ~ constraint. check 



3.2.2.455.1 Pu£aa3£» This routine checks to see if the given value satisfies 
any constraint given in the type. spec i f i cat i on. 
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3.2.2. h55.2 iiiUHiiiiaaS* ** None 



3.2.2.455.3 laaianaQiiaiiiSn Ll£12UaaS« ~ This subprogram is written in Ada 



3.2.2. 455.4 ..la* E£.£U£SiY.§J.Z« - This subprogram is used recursively. 



3.2.2.455.5 Ne.5i.gjl _iiJ2i.Il« - static.exp 



3.2.2.455.6 Has.,. P.£a&f»£le._c.ie.s.. - None 



3.2.2.455.7 larval £saaa-£a-l«.S- - None 



3 • 2. 2. 455 .d Su22£2il£aai £i_i&ili£y.« ~ Within Package Only. 



3.2.2.455.9 Pijncti on / Procedure. - This subprogram is a Procedure. 



3.2.2.455.10 Eaual £.aL-22le r£. ' 

val.J in value.type* 

type.spec : in cdm.ty pe. c.node.re f ; 

valid : out boolean; — is true if the constraint is satisfied 



3.2.2.455.11 Ufl£=£IL££ii« - None 



3.2.2.455.12 .laaUi-HS' - 

case TYPE_SPEC»N00e.TYPe> is 

"integer" *> valid s* range. check (va I * type. spec.as. range) 
"float" *> if type_spec.as_range.void /* void then 

valid s* range.check {val» type.spec. as.range.voi d ) 

else 

valid :* range. check ( va I » type.spec. sm. 
* t y oe.s true t .a s.r ange.vo i d) 
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en a if 

"fixed" »> if type_spec.as.range.voia /* void then 

valid :« range. check( val « ty pe.specoas_range.vo i d) 

end i f 

"constrained" *> INVOKE range. check 9 array. check or 

d i sc r i m i nant. check .depending on w he ther"sm. constrained" 
attribute is range* index or discriminant constrained* 

"derived *> SAW6 as above except use "as.constr af ned"> attribute* 

"array" »> invoke array. check 

"record" *> INVOKE discriminant. check> 

others *> valid :* true 



end case 



3.2.2.455.13 aiaaaaatia !SSaa£5 SSH££alld« - None 



3.2. 2. 455. 14 E^affialfiS, Ql Q3ll XtLUalaLSS • - None 



3. 2. 2. 4 56 Siib.ar.o.ataa* " range.check 



3.2. 2.456.1 £u£,aass. - This routine checks to see if the given value It 
within the given range. 



3.2.2.4 56.2 iSlJAffiaiiaaS* - None 



3.2.2.456.3 IaaJ.SJB£Qia£iaa Laaauaaa* ~ This subprogram is written in Ada. 



3.2.2.456.4 Uiaa Recqr s j ye f y. - This subprogram is not used recursively. 



3.2.2.456.5 Ne.s.£e,a H jth j, n. - static. exp 
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3.2.2. 456.o tiaii i«o.e.n£»£nc.i2 > 5 >< - Ncns 



3.2.2.456.7 I^r££i. £le p.e.n £e,n c.i§.s, . - None 



3. 2.2. 456. 3 iuaanaaxLaa V i s L b r l r i % ,y„ . - Within Package Only. 



3.2.2.456.9 £nilSLi.ilQ.^ > F»£.aS3.ilU£.£ • ~ This subprogram is a Function with a boolean 
result tyoe. 



3.2.2.456.10 £2L2li P. 2Lii2Si£££ • - 

val : in value.type; 

range_noae : in cdm < „type.c - node - .ref » 



3.2.2.456.11 £j.a.£-££f.e.c.is.. - None 



3.2.2.456.12 A.lao.£.ii,hm.. - 

if val >- r ange„.noae .a s_exp 1 • sm.va I ue and then 
val - r ange_node .as_exp2 • sm_val aue then 
return ( true ) 

else 

return (false) 

end i f • 



3.2.2.456.13 aiaaQfiiiic. Ms.s.s.aaas Q.$.H2.lHS.^ - None 

3.2.2.456.14 £x.ajnoJ.e.s. 2l £^13. li£U£i.ULai • - None 



3.2.2.457 Su22£&ar.am. - array_check 
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3. 2. 2.457.1 ELiiliLaae.. "* This routine checks to see if the given value oelongs to 
the given array typedefinition. 



3*2.2. 457.2 AiSLmBfiiifllLS* " None 



3.2.2.457.3 Il£l£3!£aJii££ifiu' L£GL£UJl££« ~ This subprogram is written in Ada. 



3.2.2.457.4 LliasL S££yX£jU££lY.« - This subprogram is used recursively. 



3.2.2.457.5 Jia^jLSJi iiiiUifi' ~ static. exp 



3.2.2.457.6 Nasi i2£fl£ild£fl£j.££* - None 



3.2.2.457.7 Ia££££ QfiafiQ^nfiiai • - None 



3.2.2.457.8 £s,i2£££3£a2! Yiliaili£*- - Within Package Only 



3.2.2.457.9 Function/Proced ur e, • - This suopr ogram is a Function with a boolean 
result type. 



3.2.2.4 57.10 £aoal ££££!!!£££££ • - 
val : in value_type» 

d i scr ete_r ange_l e f t : in cdm_type. c_node_r e f » 
componen t_spec : in cdm_ty pe. c.node.r ef J 



3.2.2.457.11 iisL£z£lIa£iS- - None 
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3. 2.2. 457. 12 &l2firj.£hm. - 

if OISCSeTE.RANGE_i.EFT is empty) then 
re turn ( true ) 

else 

d i screte.r ange := GET next "dscr t. range" node in discrete, 
r anges. I e f t) 

if VAL is not as multiple value) then return (false) end if 
if DISCRETE. RANGE 'NGOE.TYPE » range) then 

RETURN false if pounds in val don't equal discrete. 

range.as.expl.sm.va lue and d i s cr e t e.ran ge • as.e xp2 • 

sm.value. 

elsif DISCRETE. RANGE'NOOE. TYPE * constrained) then 
range :* d i screte.r an ge. si*. constr a i ned 

RETURN false if Pounds in val don't equal range. as. exol. snu.va I ue 
and ran ge.as.exp2.sm.val ue> 

end i f 

GET the list of leftover discrete ranges) 
for EACH H e I euen t.va I ue" in val) loop 

if not array. check ( e I ement.va I ue* I ef tover.d i screte.r angesi 
component. spec ) then 
re turn (false) 
end i f 
end loop 
return ( true ) 

end if 



3.2.2.457.13 aiaaQftiU.il Me.s.£a.as.s £e.n.e.£ai££. - None 



3.2.2.457.14 SLxaiSftiSS. 21 Q.HL2, S^LU,£lU£5.a« ~ None 



3.2.2.453 £y > a2£&2L3!S« - di scr i minant. check 



3.2.2.458.1 Euiaasa* - This routine checks to see if the given value has the 
given discriminant values. 



3.2.2.458.2 As^Siiaat j.pjns> - None 



3-960 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document . " 



ALS Compiler Macn i ne-Indeoendent Section C5 Specification CR-CP-0059-C34 

1 No ve-no er 193 3 



j.2.2.458.3 I JialS mSQidliaO. LlQ,aU2.a£,« *" This su^p r o gr an is written in Ada 



3.2.2.45S.4 UiSfl, ££,S.yxSi.isJ.l« - This subprogram is not used recursively. 



3.2. 2. 458. 5 tiaslsg. Hiitlifi- - static.exp 



3.2.2. 4 58. 6 Ho.s,£, QStt£fi<J[e.n.c.ie.s.. - None 



3.2.2.458.7 £LS&2Q3*Q£.LSJL • ~ None 



3.2.2.458.3 iiAaaLafltas v '5, I Q i I 'AY • - Within Package Only 



3.2.2.458.9 £uQc.liaQ££.£a c .SiU££« ~ This subprogram is a Function with a boolean 
result tyoe. 



i. 2.2 .458. 10 EaLiSai P-atamet gr .s, . - 
val s in value^type; 

dscr mt^aggr egat e s in cdm_type.e-node_ref J 

dscrmt_def : in cdm_type.c_node_ref ; — points to a ? ?_s • a s„ I ist list 

sequence which contains ° dscrmt_ i d"s 



3.2.2.458. LI iJLda=£tia£iS. - None 



3.2.2.458.12 AJ.ao,£j.£hm.. - 
subscript : = 0 

dscr mt_def s„r erna i n i ng : =» dscrmt_def 

for EACH "element'* in the sequence dscr mt„aggregate> loop 
if ELEMENT* N0DE_T YPE /* ,, naraed"> then 
subscript :» subscript *i 

ADVANCE dscr mt_de f s_r ema i n i ng list by one> 

if VAL subscripted by subscript /= e I euen t. sn.va I ue> then 

return ( fal se) 
end if 
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else — "element" is a "named" node. 

for EACH "name" in e I ement . as_cho i ce_s. a s_l i s t> loop 

subscript ?» cur rent^dscrmt.,! d s* dsc r mt.def s_ remaining 
while name, sm.de fn cur ren t_dsr ct» t„. i d loop 
subscript s* subscript +1 

gat cur rent.dscrmt.. i d :* next dscrmt_id in list* 
return (false) if none left. 

end loop 

if VAL subscripted by subscript A« e I ement .as.exp. 

sn»_value then 

return (false) 
end if 
end I cop 

end if 
end loop 



3.2.2.458.13 QLU£nasii£ sifisaaass £*aaf.aisd- - None 



3. 2.2. 458. 14 £xiiSai£S. 2L &£LU£.&U£&2* - None 



3.2.2.459 £ac.Ki£g. - target. type 



3.2.2.459.1 Py£aas.e.. - This package determines the parent types for derived 
types which are specified in one of the following forms: 

(a) "TYPE X IS RANGE A..3J" (b) "TYPE X IS OIGITS N5" 



3.2.2.459.2 N^jaasf. 2t £aaar.22JL2<2£« " 2 



3.2.2.459.3 2e.2aa2aaSj.Si aa QinSL £lfii<a2£S L2L SaiS* - cdm.type, con.ian 



3.2.2.459.4 AdavuiaaaJ. Q^aaadanaias Ia£ Sad*- - none 
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3,z.2. 459.5 Paalsaaa Saaaiiiaaiiaa* - 

procedure i nt eger^type (integers in cdm - type.c_node < .„ref ) I 
procedure float.type ( f I oa t.nodeJ in cdm^t ype. c.node.r e f ) J 

— non-visible constants 

shor t_f I oat.d ig i ts : value 

f loat.digi ts : value 

• ong_f • oat_d i g i t s s value 

shor t_i nt_.f i r st : value 

s nor t_ i nt_ I as t s value 

int.first s value 

int_last i value 

I ong^i nt_f i rs t : value 

I ong_i nt_l ast : value 



3.2.2.459.6 JLLiaflLaiiaa £a£tS,« ~ INITIALIZE the non-visible constants from info 
in s tandar d> 



3.2.2.459.7 £aaaa.L25. ai Uaia iir.iiaiur.ai* - None 



3.2.2.460 Suaar.aar.aQl* ~ i nt eger_t ype 



3.2.2.460.1 £ur.aa5.£« ~ This routine takes a node of type "integer** 
(representing an integer type definition) and fills in its TYPS_SP?C fields 
< sm_type„.struct in the ,, integer•' , node and the sm_bas2 _ty pe attribute in the 
"range" node) to point to the appropriate integer definition. 



3.2.2.460.2 A£SUaaii2QS« ~ None 



3.2.2.460.3 Into I ewen ta t i on Lang uage . - This subprogram is written in Ada. 



3-963 



"Use or disclosure of technical data and/or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Compiler *ach i ne-I ndeoenden t Section C5 Specification CR-C? -00 5 9.tC34 
1 No v e -n n e r 1 9 3 3 

3.2.2.460.4 LUad &§L£af.£i v .*l.Y.» * T hts suborogran is not used recursively. 



3.2.2.460.5 Ne.5,£e,g. £ ].£ kill « - tar get .type 



3.2. 2. 460. 6 Ho.s.£ Qe^p n^gn^Sl • *"• None 



3.2.2.460.7 Iaiaal asa£Qil£Q£i£l- - None 



3.2.2. 460. 3 iy.aaL22r.a2 yJ-liaiiiJ^ - Outside Package. 



3.2.2.460.9 £iiO.£ii2Q,i!l?.£asa d -Ur.£« ~ This subprogram is a Procedure. 



3.2.2.460.10 £21.23.1 EaLajSaillS* - 



integer : in cam. type • c.noae.r ef ; — points to an integer type definition whose 

parent is to be determined. 



3.2.2.460.11 Siae. = £f.f.e.c.£s.. - None 



3.2.2.460.12 AJ.2fif_i.kh a. - 

— This routine needs 6 constants. 
— • The constants are: 

— short, int.. last* int. last* I ong. i n t.l ast * short, i nt.f i rst* 

— int. first and I ong. i nt.fi r st . " 

range := i nteger .as. range 

VERIFY that r ange.as.expl.sm.va I ue /= void and r ange. as.exp2. sm.va I ue 

/* void> 

if RANGE • AS.EXP2. SM.VALUE > short. in t.l ast> then 
U r RANGE. AS. EXP2.SM.VALUE > int.last> then 
temp := large 

ErtIT error 16001 if r ange .a s.exp2 . sm.va I ue LONG. INT. LAST > 

else 

temp := medium 
end if 
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e t se 

temp s» short 
end if 

if temp • short and RANGE . AS.EXPl. S*_VALUE SHORT.INT.F I RST> then 
if RANGE. AS_EXP1.SM_VALUE INT_FIR$T> then 

temp : * I ar ge 
else 

temp :* medium 
end i f 
e I si f 

temp : » medium and RANGE .AS_EXP1SH_VALUE INT.FIRST> then 
temp : ■ large 

end if 

SET range. sm.base.type and i nteger .sm_t ype_struct according to the 
value of temp> 



3 •2.2.460. 13 iiaaaaiiis Ssssaass teaar-aisd* - 

SEVERITY 

16000 £ integer type definition does not have static 

range elements 

16001 £ integer type definition exceeds accuracy of this 

target 



3.2.2.460.14 £iaa»alfi£ 21 Oala SiLU£iU££S« - None 



3.2.2.461 Siiia£29.Laia« " float_type 



3.2.2.461.1 £uro.2S.e. - This routine takes a node of type "float" (representing 
a floating point definition) and fills in its TYPE„SPEC fields to point to the 
appropriate floating point definition. 
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3.2.2.461.2 iil.U2ail2.QS* ! '4one 



3.2.2.461.3 I22i£2&3.£ja£i2 n . L3.0. 22 ♦ " This subprogram is written in Ada. 



3. 2. 2.461. 4 Uasa &£ail£JLLY.S,iy.- ~ This subprogram is not used recursively. 



3.2.2.461.5 Ngs£32 iiiiQia* "* target_tyoe 



3.2.2.461.6 {jail i2saS.JQila.Il£.i£S • *~ None 



3. 2 .2. 461. 7 IsLLaSl ElsaSQQ'SJiaiS.S* ~" None 



3.2.2.461.3 SiiQaLaacaia iiSi2iiill« *" Outside Package. 



3.2.2.461.9 £uQ£ii2QZ.£Lai2S.iiJiLS« " This subprogram is a Procedure. 



3.2.2.461.10 EQOiaJ. £.&Lill£.i.£r.S« ~ 

f loat.node ; in cdm_ty pe. c_node_re f ; — points to the floating point 

type definition whose parent 
is to oe determined 



3.2.2.461.11 sail- - None 



3.2.2.461.12 Ai£0.£iihrs. - 

— This routine needs the constants: 

— short_f i oat„d i gi ts « float_digits and I ong.f 1 oat.dig i ts. ' 

if f I oat_node .as_exp • sra_va I ue /= void then 
V :* f 1 oat • as_exp • sm_va f ue 
if V _» sho r t_ f I oa t_d i g i ts> then 

f I oat.noae.as.exp.sni.base.ty pe ?= f loat.iode.sm.type.struct s « 
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pointer to short float in standard 
elsif V i nt^f I oat_d i g i ts> then 

— similarity for float 

el s°t t V I on g_ f I oat_d i gi ts> then 

— simifiarty for I ong_f I oat 
e I se 

EMIT error message that def's exceeds targets accuracy> 
end if 

e I se 

EMIT error nessage that digits field s not static> 
end i f 



i.2 .2. 46 i.i3 aiasaaitia Jtessaass ££05.£aiaa« - 

SEVERITY 

16002 E floating point constraint in floating point 

definition is not static 

16003 E floating point definition exceeds accuracy 

of' target machine 



3* 2. 2. 461. 14 taaaalfiS 21 Q3li. lLLU££ii£££- ~ None 



3. 2.2. 462 PjL5.Jia.ae.. - stmtchk 



3.2.2.462.1 £u£2aSS,» ~ Define data structures to be used oy all statement 
checking routines. 



3.2.2.462.2 £iy.E2£L 21 iii23L£2££llIL5. • - None 



3.2.2.462.3 0.£ae.Q<Je.Qc.ias. an ££h££ Ei.£*a££S £2L - cdro.type 
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3.2.2.462.4 Q£a£a£lS!l£i.s2, LSLL %Q.ll • ~ None 



3 .2. 2 ,462.5 zzs.i&2§. £flaaili£iaii.o.n . - 

OVERVIEW OF STATEMENT CHECKING FUNCTION 

— The statement checking function is organized a a recursive descent 

— traversal of - the Diana tree. The following subprograms are present 

— 1. There is one procedure for each Diana node type. 

^— - This procedure is named SC_d i ana.name » where w d i ana_r>ame" 

— is tne name of the node* as defined in the Diana Reference 

— manua I • 

— - There are two parameters: 

— a. A c_.node_ref to the node to be checked 

— b. A variable of type CONTEXT which tessl where in the 

— compilation this node appears (e.g. in a task 

— specification* in a declarative part* etc.) 

— - Each procedjre calls the procedures corresponding to the 

— structural attributes of the node being checked and then 

— checks the node itself. The calls to other procedures are 
~ repsented by the pseudo-code lines* 

— CHECK as_structura l_at tr i bute_nane> 

— 2. There is one procedure for each Diana class 

— - This procedure is named CL_,d i ana.naue* where w d i ana. name" is 

— the name of the class* as defined in the Diana Reference 

— flanual. 

— - This procedure consists of a case statement which has one 

— branch for each element of the class. In each branch* there 

— is a call to one traversal routine of type 1 (above). 

package stmtchk is 

inner_seq: cdm_. type, c_.node_.ref ; 
— pointer to list of statement sequences 
type contexts is 
( i n_dec l._par t * —in declarative part of a package 
i n_task_spec » —in a task spec i f i cat i on , 
in_seiect —in a select statement 
i n_gen_,parii * —in a gener ic parameter 
stat.range* —static range required 
stat_exp* —static expression required 
d i scr i fn_exp • —requires expression which 

depends only on discriminants 
ar r_.rec_.par n » —actual parameter of array or 
record type 

ar r _re c_r et ) ; — retrun for array or record type 
type context_rec is 

NAME: stmtchk. context s; 
set_used: boolean; 
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v i s_pr i v : cool ean ; 
acceot.ets integer; 
de!ay_ct! integers 
t erro.ct : integer: 

pack_oody - names cdm_bas i cs •c - node.r ef I 
tyoe S6Q.USAGE is 

( 6XCP.SE 2 » LOQP.SEQ •.. etc.); 
tyoe SEQ.INFO is record 

usage 5 s£q_usagej 
has_cooe : boolean; 

HAS.NON.CUDE : BOOLEAN; 
end record; 
end context.rec? 
end stmtchk* 



3. 2. 2. 462. t> sia&flLaiiaa Gads* - 

LIST of statement sequences " = empty> 
CALL. RELATION list :* empty> 
ELA30RATI0N.CALL list :« empty> 



3.2 e 2«462.7 SLiainalSS, at Qala 5LJL£JI£iULa3.« - list of statement sequences? 
(maintained in containers 
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LIST OF STATEMENT SEQUENCES 



A prae F T A 



» START a» » QUIT 



FT *■ 



» NEXT » FIRST 



LAST A 



FINISH 



- ERR1 






ERR2 


A 







loop 



Innermost Sequence 



l — • List of unsatisfied goto statements 
«— Label list (cjiodej-efl 
'—Has non-code statements (Boolean) 
Has cod* statements (Boolean) 
•——Sequence type- (exception, loop, etc.) 

Figure 3-7, Statement ChecKing Function 
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3.2.2.463 E.aSLiiia£« * scp.decl 



3.2.2. 463.1 iiiLaaig.. - Implement the 
involved with declarations* 



statement checking function for nodes 



3. 2. 2. 463. 2 tjuaafif. at SusataaLaais. • - 4* 



3. 2. 2. 463,3 Haasaaaaaiss 20. Hitist PasJsaass tat iaaa. - cdm.type, stutchK 



3.2.2. 463.4 li-2ii.iaQ.il QsaSD.a'aiiaiS.S. L2L 2.2,11 • ~ cdm.as* sc.classi diagnose 



3.2.2.463.5 Pa.ak.aaa Sasailiaaiiaa- - 



package scp^dec I i 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sjc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc 

procedure sc 

procedure sc. 

procedure sc. 



cons tant ; 
var ; 
number ; 
type; 
suotype ; 
cons trnd ; 
der i ved 
range; 
i nteger ; 
f I oatt ; 
f I oatc; 
sc.f i xed ; 
array ; 
dscr t.r.s; 
r ecord ; 
var i ant.p; 
var i ant.s » 
var i ant ; 
access ; 
i t em.s ; 
procedure i 
f unc t i on; 
parara.s # 
i n 
out 

subp.body ; 
pack. dec I ; 
pack. spec $ 
dec I .s; 
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dec 1 .reps » 
pack.body ; 
private; 
task. dec I » 
task_sp.ec 
task_body 
entry 
gener ic ? 
gen.parms » 
s im.repj 
r ec.rep I 
comp.reps ; 
comp.reo J 
addr ess ; 
dscr m.agg J 
subp.dec I J 
rename; 



3.2 .2. 46 3. 6 £iab.af.a.io.a coda* - N °"« 



3 .2. 2. 463.7 £x.is.i.. fi! liXiifi-lilfiS- - None 



3.2. 2.464 SjA.£. . *• sc. constant 



3.2.2.464.1 £.£__... - Per font statement checking for a node of type 
'constant 1 . 



3.2.2.464.2 .SSU!Sai±2.ai« " None 



3.2.2.464.3 IaaiS2lS.Ei-iisa L3.Q.21JL&2S • ~ This Subprogram is written in Ada» 



3.2. 2.464. 4 .5..£L S£S.-£liy.§J.y.« - This subprogram is not used recursively. 



AL3 Coup i I er lach i 
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procedure sc_ 

procedure sc„ 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 

procedure sc. 
end scp.dec I } 
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J.2.2.46^.5 «liSi«Si &il£li0.« *° sco.decl 



3. 2.2. 464. 6 Ho.5£ i2sa&Qi3AI!£iSS« "* None 



3.2.2. 464. 7 laiagi UsaSQStaafilSi* ~ None 



3.2.2.464.S iiiUfitaataa Yili&iliil* - Outside Package. 



3.2.2.464.9 ^.'AD.Q.^.L^HLtLlS.lSlUl.S. • ~ This subprogram is a Procedure- 



3. 2.2. 464, io £afjaal Par.ajEsl£f.s» - 

subtree! in cdm.type .c.norie.r ef i > reference to diana node 

to be checked. 

context: in sttntchk. context.r ec? — defines context in which 

this node appears. 



3.2.2.464.11 iiO«z£it^2.ii« - None 



3.2.2.464.12 A.iaa£.illa!n« - 

if MAINTENANCE option A> then 

PRINT "at node% node» M of type"* cdm.type.get.node.id(node) » 
'•context *'*» context> 

end if; 

if THIS node already flagged as in error) then 

return; 
end if; 

CHECK as.type.spec> 
CHECK as.object.def> 
if SM.OB JECT.DEF is void> then 

error 17000 
end if; 

if OBJECT is of a task type> then 

ERROR 17002> 
end if; 

if OBJECT is limited private or has 
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liuitea private comoonents) then 
if NOT in private part of package> then 

6RK0R 17003> 
end i f ; 
end if; 

if UNCONSTRAINED array type> then 

if INITIALIZING array is "ragged"> then 

error 17003 
end if; 

end if; 



3 .2. 2. 46 4. 13 aiaaaaitia Isilaaai ^aatais^* - 

SEVERITY 

£Q2£ 8UaU£*i*£ 

17000 £ constant has no value 

17003 £ invalid array structure 

17001 £ task type can not be initialized 

17002 E I i mi t ed pr i vate type can not Oe initialized 



3. 2. 2. 464. 14 isaffialsi a! aaia ilr.itss.ur.ss* - None 



3.2.2.465 ly.bo.r2a£aai« " sc_var 



3.2.2.465.1 P.i.r.fi.as.e.. ~ Perform statement checking for a node of type 'var*. 



3.2.2.465.2 A££uj22iio.nj;. - None 



3.2.2.465.3 l22l£!S£0.1aii5D. L2.0,2USaS* ~ This Subprogram is written in Ada. 
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3. 2.2. 465.4 LiiS^ - This suborograTi is not used recursively. 



3*2*2 •465.5 Ne,s££d. HilSiH* ~ s cp_de c I 



3* 2*2. 465 .6 BfiSl (2sasriSlaO.S.iSS« *"* None 



3*2.2.465.7 iaxaai Qaaaaaanaias* - None 



3.2.2.465.8 Su2aLa.2I.aa ii^iallill* - Outside Package. 



3.2.2.465.9 £.UHaiiailii£.£2.j£S.SiUXS * ~ This subprogram is a Procedure. 



3.2.2. 465. 10 £a£.aai £.£LiLlS.&SLl« ~ 

subtrees in cdm^t yoe. c.node.r e f » — reference to diana node 

checked* 

context: in st.n tchk • cont ex t_r ec » — defines context in which 

this node appear s 



3.2.2.465.11 iiaa-£li£aiS. - None 



3.2.2.465.12 AJ.a2Lilh.fl!* - 

if MAINTENANCE option A> then 

PRINT M at node"» node* "of type", cdm^type* get^node.. i d ( node) » 
"context «'•» context> 

end i f ; 

if THIS node already flagged as in error) then 

return; 
end if; 

CHECK as_t ype_sp ec> 

CHECK as_object_aef > 

if UNCONSTRAINED array type> then 

ERROR 17004> 
end if; 
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if OBJECT r»3s M mi tea private type> and NOT in private oart 

of package> then 

ERRO* 17005> 
end i f i 

i f OBJECT nas a task type> then 
ERROR 17006> 



3.2.2.465.13 2iaaQaaii<; Ssssaass £&o££al£4« - 



SEVERITY 
£0Q& - fiUJiA£*S*£ IEXI 



17004 


£ 


1700 5 


E 


17006 


e 



3.2.2.46 5.14 £^a!DttiSi 21 S££UC.£il£&S- - None 



3.2.2.466 £jAj£2£P.a £32 • - sc. number 



3.2.2.466.1 PiUlSLSa* " Perform statement checking on a node of type 'number* 



3.2.2.466.2 £sSU!22i±2.fi.2« " None 



3.2.2.466.3 lE2±Si£DJi3£jL£0. LaTJL2JlsiS£ • ~ This Subprogra-n is written in Ada. 



3.2.2.466.4 Ui.2<J 8££U£lii2.JLA« - This subprogram is not used recursively. 



3.2.2.466.5 £UsiSd MiitUll' ~ scp-decl 
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3.2.2.466.b IjSiii i2saS.QilSIlS,iSI» ~ None 



3.2. 2. 46 6,7 laiaat Usaaaaanaiai- - Nons 



3c2.2.466.8 SuaaLasxaa - Outside Package. 



3.2.2.466.9 SyaaiiaOLdf-LaaaiULS* " This subprogram is a Procedure. 



3.2.2.466.10 Eataiai P-aLasaiats.* - 

suotree: in cdni^type. c^node.ref i -— reference to diana node 

to be checked. 

context? in st*!tchk.context_rec» — defines context in which 

this node appears 



3. 2. 2. 4 6o. 11 iii£zLLLs.£il» - None 



3.2.2.466.12 * I gp r i th,m. - 

if MAINTENANCE option A> then 

PRINT "at node"» node? "of type"* cdm^type.get^node^ id(node) » 
"context *" » context> 

end if; 

if THIS node already flagged as in error) then 

return; 
end i f ; 

CHECK as.exp with stat i c.requi red context) 



3.2.2.466.13 aiaaaa^LU sassaaas £aaa£aiaa« - None 
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3.2.2.466.14 iXst2U.ia5. 2t SJLLy.£lULS.S« ~ None 



3 • 2. 2 .467 5.il£>££0.2LLsl2« - sc., type 



3.2.2.467.1 Py£P.aS.a« ~ Perform statement checking on a node of type *type*» 



3.2.2. 46 7.2 £££ump.£io.ns. " None 



3.2. 2. 467.3 IaaiaaaQ.iaLL2!l IrSncfua ge . - This Subprogram is written in Ada. 



.i. 2.2.467.4 Lisas! ES.S.U£liia.iJt« *" This subprogram is not used recursively. 



3.2.2.467.5 ballast ktiiiliD.* " s cp.de c I 



3.2.2.467.6 U.Q.2.&. JLaaaHSiaiiaiaS* None 



3.2. 2. 467. 7 larval Qaaafld.aO.SLia.S* None 



3.2.2.467.3 S^aLaaLlS 1 isiaiiily. • - Outside Package. 

3.2.2.467.9 £uQ.£.i.i2£lZ.£.L2J£a!iy.ta • This subprogram is a. Procedure. 

3.2. 2.467.10 £a£2sli £&L&2l£.L&L2. • - 

subtree: in cdm.t ype • c.node.r ef ; — reference to diana node 

to be checked 

context: inout stiutchk.context.rec> ~ defines context in which 

this node appears 
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3.2.2.467.11 S,ia£-£lf e.£ii . - None 



3.2.2. 467.12 AJ^acilha. - 

if MAINTENANCE option A> then 

PRINT "at node% node* "of type"* cde_type. get_node_ I d ( node ) » 
"context * "> context> 
if THIS node has already been flagged as in error> then 

return; 
end if; 

CHECK as.var.s> 

CONSTRUCT discriminant list from a slvar _s> 
CHECK as_type_spec> 



3.2.2.467. 13 aia2Q2iti£ SaSSaaSS SaaSLaiad- - ^one 



3.2.2.467.14 E^aJDalSS. Q± &a£a Slr.U£tU£SS« - None 



3.2.2.466 SuaaLaacaiB- - sc_subtype 



3.2.2.463.1 P y. £.2.2,1. £, • - Perforin statement checking on a node of type 'subtype* 



3.2.2. 468.2 As,s„aiBaJi.iaai« ~ None 



3.2.2.468.3 IsaisaaQiaiiiZO. LaaauaaS* ~ This Subprogram is written in Ada 



3.2.2.468.4 Ujeji S£iaf.SiY.SLi.£« ~ This subprogram is not used recursively. 



3.2.2.468.5 M£5.JLSSl wilaia. - scp.de c I 
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3.2.2.4 68.0 iasi, ^£a§.O.l£Il£JL£l» None 



3.2.2.466.7 Ia£af.l Dqoenftencjes. - None 



3.2.2.468.8 5,U2ar.a2£.a2! V i ? f p f I i t v - - Outside Package, 



3.2.2.468.9 &aa£&iaa£ELa£SLily.f.£.» ~ This suborogram is a Procedure, 



3. 2.2. 468. io tarsal iataaaliis* - 

subtree: in cd-n^t yoe • c^node^re f ; — reference to dlana node 

to be checked 

contexts inout stmtchk.context_rec; — defines context in which 

th i s node appears 



3.2.2.463.11 Uas=£ttsc.il» - None 



3.2.2.468.12 iiaatX^hm. - 

if MAINTENANCE option A> then 

PRINT "at node"? node* "of type"* cde_type • ge t_node_ i d ( nod e ) * 
"context * "* context> 
if THIS node has already been flagged as in error> then 

return; 
end if; 

CHECK as.constra i n t> 



3.2.2.468.13 2iaaaa2Li.ia JlSiaaaai fifiOfi£ai£Sl« - None 

3.2.2.463.14 SiiaialSS. 2l 2312. £It,CU£ikUL£S« - None 
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3 .2.2.46* S,y.aaL22.r.22l« ~ sc.constrnd 



3»2.2.469.i P-ALaaSS.* - Perform statement checking on a node of type 
'constrained' • 



3.2.2.469.2 £S.SUlB2£i2Q3« ~ None 



3.2.2.469.3 IaalS0l£aiai.ii2Q L2.Q2ULa2£« ~ This Subprogram is written in Ada 



3.2.2.469.4 LJiSSL daaULSi)LSLLx« ~ This subprogram is used recursively. 



3.2.2. 469 . 5 Ne.s„£e.g. iiltliS* — scp.decl 



3.2.2. 469*6 ti21i £lSa£Q^S£l£iSl» "~ None 



3.2.2.469.7 lanaai QsaSQllaQaiaS* - None 



3.2.2.469.3 luaaLaSCam liliaJJLlly.* ~ Outside Package. 

3.2.2.469.9 £uQ£liaQ£Pr.2.£££iU£S,« "~ This subprogram is a Procedure. 

3.2.2.469.10 £2£2al P. & 13 2 • - 

subtree: in cdm_type.c_node_ref; — reference to diana node 

to be checked 

contexts inout st.utchk • context_recJ — defines context in which this 

this node appears 
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3. 2.2. 46 9. 11 iii£z»tleg.l5 . - None 



3 -2. 2. 469. 12 A.la2C.iIl2!S« - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cde.type • get. node. i d( node ) » 
"context * "» context) 
if THIS node has already been flagged as in error> tnen 

r e turn ; 
end if; 

CHECK as, name) 
CHECK as.constr a i nt> 

if NAME is already constrained) then 

ERROR 17007> 
end if; 



3.2.2.469§i3 aiaaQaaiis. Jtea&aaas. £ana£aifid« - 

SEVERITY 

17007 E additional constraints not al lowed 



3.2.2.469.14 =x.aaiala5. 21 iaia IkLUSlULSS- - None 



3.2.2.470 Siijj^agxaja* - sc.derived 



3.2.2.470.1 Py.£p.2.s.e, . - Perforu statement checking on a node of typ 
• der i ved ' . 



3.2.2.4 70.2 Ailiifflaiian^* ~ None 



3.2.2.470.3 l22iS2£ai,aii2Q Laaayaas* ~ This Subprogram is written in Ada 
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3.2.2. h70.4 Usai i££ii.£Siv^ix» - T his subprogram is not used recursively. 



3.2.2. 4 70. 5 ^SSi-SU ~ scp_dec! 



3.2.2.470.6 tlaii QaaSQ^SnaiSS- - None 



3.2.2.4 70 .7 Ia£ae,i Q523Qii*0,£XS5 • - None 



3.2.2.470.8 Su2fi£fl2£a(2 - Outside Package. 



3.2.2.470*9 Euflst i, on/, pr o ce di^r? . - This subprogram is a Procedure. 



3.2.2.470.10 £2LEal t'dLZOlSLlZLl* ~ 

subtree? in cdm^t y oe • c.node.re f 5 — reference to diana node 

to be checked. 

contexts inout stutcnk.context^rec; — defines context in which 

this node appears 



3.2.2.470.11 SJ.d£=£tL£CJkS. - None 



3.2.2.470.12 ^iaaniini' - 

if 1AINTENANCE option A> then 

PRINT "at node"* node* "of type"* cde_type • get_node_ i d ( node) » 
"context * M » context> 
if THIS node has already been flagged as in error) then 

re turn ; 
end if; 

CHECK as_constra i ned> 
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3.2.2.470.13 2ii.3Q2ilic. ile.s,5,22£.£ ii£ 3 • ~ None 

3.2.2.4 70.14 £>Lii22JLS£ 21 Qall llLU2.i.ULS.l» ~ None 
3*2.2.471 £u.2£££2£l!a» - sc.range 

3.2.2.471.1 Ey.La21£.» Perforn statement checKing on a node of type 'range'. 

3.2.2.471.2 As.£ym££io.ns,. - None 

3.2.2.471.3 laolSSSQlalian LaoaUSa£« " This Subprogram is written in Ada. 

3.2.2.471.4 Us.efl Ee£!iL££jLY.§,iY.« ~* This subprogram is used recursively. 



3.2.2.471.5 iia^ egT aliihj.fi . - scp.decl 



3.2.2.471.6 Hfili Qsa«OiJe.nc.iss.. - None 



3.2.2*471.7 IaL£S,l Q£.2£ n .i2£ n .£iS.£« ~ None 



3.2.2.471.8 lntLQ.L2S.L3.Sl liiiiiiii^ • " Outside Package.- 



3.2.2.471.9 Fungt iQn^Pr.oced Mr ,e . - This subprogram is a Procedure. 
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3.2. 2. 47 L. 10 £a£2si ° • ~ 

suotrea? in cdm_type.c_node_ o ref ; — reference to diana node 

to oe checked 

context: inout stutchk.contex t_rec5 — defines context in which 

this node appears 



3.2.2.471.11 5i4S=£ilS£li« " None 



3.2.2.471.12 Aj.22£i£!2!a« ~ 

if MAINTENANCE option A> then 

PftlrtT "at node's node* "of type's cde_type. ge t_node_ i d ( node ) « 
"context « 'S con tex t > 
if THIS node has already been flagged as in error> then 

return ; 
end if; 

CHECK as_expl *ith static requirement from context> 
CHECK as_exo2 »*ith static requirement from eontext> 



3.2.2.471.13 2ia.aQa£iic. iassaaai Saasxaiaa'* - *one 



3.2.2.47i.i4 ixamaiai ai aaia. limaJLiiLas* - None 



3.2.2.472 S.y.a.a£.aa£2J!l« ~ sc..integer 



3.2.2.472.1 PiALaaia* " Perform statement checking on a node of type 'integer'. 



3.2.2.472.2 As.s.aaiaiiaES« ~ None 
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3.2.2.472.3 Il2i£;2- n ...sl-i2Q ~ This Subprogram is written in Ada. 



3.2.2. 472.4 y__<l S££Uf.Siiai^» - This suoprogram is not used recursively. 



3.2.2.472.5 N.Sisa Hil!l±Q« " scp_decl 



3.2.2.472.6 HfiJi Qj£££fl.-£ n .£i,£5» None 



3.2.2.472.7 QS2£n --£l£i.£.£ • - None 



3.2.2.472.3 Iu2££fi2£a21 iiii^ilill* - Outside Package. 



3.2.2.472.9 PuGaiiail^Laita^UXS* ~ This subprogram is a Procedure. 

3.2.2.472.10 Ffl£aai P2C22S-,a£S* - 

suotree: in cam_type.c_node_ref i — reference to diana node 

to be checked 

context: inout st.ntchk.corvtext._rec; ~ defines context in which 

this node appears 



3.2.2.472. 11 Uasz£lta-Ii. " None 



3.2.2.472.12 _l_lA£.L_hf_. - 

if MAINTENANCE option A> then 

PRINT "at node's node? "of type n » cde_type. get_node_ i d ( node ) * 
"context ■ " t context) 
if THIS node has already been flagged as in error) then 

return; 
end if; 

CHECK as, range* static context) 
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3.2.2. 472. 13 2iaSQ2iii£ -aSia£S5 £en£raj,£d. - None 
3. 2 .2. 4 7 2.14 &iafflttlSS 21 5i£M£iU£SS» - None 

3.2.2.473 £y,jap.£0.<i£ag!. - sc_floatt 



3.2.2.473.1 SiiLaaSS,* ~ Perfom statement checking on a node of type 'float** 
which is used as a type_spec. 



3. 2 .2. 473 .2 AiiUfflftliaQi* - None 



3.2.2«473.3 l3alfiSS.Q.£&liaQ, LaQ.2U2LaS« ' " This Subprogran is written in Ada 



3.2.2. 473.4 Liiail S££.U,LSiia.iX» *" This subprogram is hot used recursively, 



3.2.2.473.5 ilasisfl to j , t h i n . - scp.deci 



3. 2.2. 47 3.6 HfiSi, QgaSQ<3SDQi iSS • None 



3 .2.2. 473.7 Iaxae.£ U£a£Q.& < £.&£.i.&£« ~ None 



3.2.2.473.3 SiiSaLaaiiaQI y j.S tti i \ K ^y • ~ Outside Package. 



3.2.2.473.9 £u.fla£i2Q££l.a££dyJL£« ~ This subprogram is a Procedure. 
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J. 2. 2. 473.10 ra£2^1 ?.£L2 2 ~ 

suotres: in cdm^type .c.node^re f » — reference to diana node 

to oe checked 

context: inout context.rec; — defines context in which 

this node appears 



3.2.2. 473. 11 SJ.as-£ttscJLS» " None 



3.2.2. 473.12 AJ.20.£,±i.h&. - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cde_t ype • get^node.. i d ( nod e ) » 
"context * "» context> 
if TrilS node has already been flagged as in error then 

return; 
end i f J 

CHECK as_exp with static context> 

if VALUE of as„exp is non_pos i t i ve> then 

error 17008 
end if; 

if RANGE is nu»I> then 

ERROR 17009> 
end if; 

CHECK as_range_voiQ with static context> 



3.2.2.473.13 iiiasQfisiis isnaasi Ssnanaisa* - 

SEVERITY 

17003 E non_negative value required for digits 

17009 E range is empty 



3.2.2.473.14 £xaJ0aiSS. 2i Sir.Ji£,£ilLiLS • ~ None 
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3.2.2.474 Su'tia£flflLdI» ~ sc_floatc 



3.2.2.474.1 P»ii,rjia&£« ~ Perfom statement checking on a node of type 'float'* 
which is used as a constraint. 



3.2.2.4 74 .2 AsSilfflaiiaQ-S* ~* None 

3.2.2.474.3 laialsa&lliaiiaa Ll!l£Uail£« - This Subprogram is written in Ada 

3.2.2.474.4 SJjgjl S££ux£iY.£lY.« - This subprogram is not used recursively. 

3.2.2.474.5 £|e.s.i£SL 2tiiaj[Q • - scp_dec I 

3.2.2.474.6 tiasi, Qaae.Qdaric.ie.s.. - None 

3.2.2.474.7 lataai. aaaanafiaais.** - None 

3.2.2.474.6 £yJsa£asxa2l iisiaiiilX* - Outside Package. 

3.2.2.474.9 Funct i on/ P ro ce d ur e, . - This subprogram is a Procedure. 

3.2.2.474.10 £,a£2ial E.aL22!§.JLS£5.« ~ 

subtrees in cam_type • c.node.re f ; — reference to diana node 

to be checked 

context: in stmt_chk. con tex t_r ec» defines context in which 

this node appears 
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3.2.2.f74.ll iiue-^Xl££i.5.« - None 



3 •2.2. 474.12 4i2aLil£im» - 

if MAINTENANCE option A> then 

PRINT "at node w > node* '"of type"* cde_type.get -<( node..id(node) » 
"context * "» context> 
if THIS node has already been flagged as In error> then 

return; 
end i f i 

CHECK as.exo with static context> 

if VALUE of as^exp 0 or value of as_exp> raax.d i g i ts> then 

ERRO* 17010> 
end if; 



3.2.2.474.13 ii^aQ2s.i.ii isisiEU Gsaaiaisa- - 

SEVERITY 

17010 E inval id constraint value 



3.2.2.474.14 £x,a.ap.ie.s. at Sata 2l£U£iU£S5« - None 



3.2.2.4 75 iu2.£JL2ilf_a!n • *" sc_fixed 



3.2.2.475.1 Par.P.£SS> - Perform statement checking on a node of type 'fixed* 



3. 2. 2 .475 .2 AliiiE32i.i2.nS* "* None 



3.2.2.475.3 Iafli£l£D,.£siii.,2Q. L<i,Q.2ita2£ • *" This Subprogram is written in Ada 
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3.2.2.475*4 !__;£_» EiauLii. £_._..> ~ This subprogram is not used recursively* 



3.2 .2. 475*5 _t&S£Sti rtiinifl* ~ scp_decl 



3* 2* 2. 475* 6 Has£ Qsa£a-l£aS.i.£S» - None 



3.2.2.475.7 l££_l££ fiSfiafl-lSIlfiiSS* • None 
3.2*2.475.3 iy.2flLO.Sf.a2! 1 is iliiill • - Outside Package. 
3*2.2*475*9 EuQatifla^P-LflSalyxa • - This subprogram is a Procedure. 
3* 2* 2. 475* 10 £2£Sai Parameters * - 

suotree: in cdm_t ype • c_.node._re f i — reference to diana node 

to be checked 

context: inout stmtchk.context_rec> — defines context in which 

this node appears 



3.2.2.475.11 _l_U_:£_.f aits- - None 



3.2.2.475*12 Aiafltilhrn. - 

if MAINTENANCE option A> then 

PRINT "at node's node* "of type". cde_,type • ge t_node_ i d ( node ) • 
"context * "» context> 
if THIS node has already been flagged as in error> then 

return; 
end i f ; 

CHECK as.exD with static context> 

if VALUE of as_exp system^m in_de I ta> then 

ERROR 17011> 
end i f j 

CHECK as_r ang e.vo i d with static context> 

if VALUE of as_exp greater than max (abs (left range exp» 
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right range exp) > then 

ERROR 17012> 
end if; 



3.2.2. 475. 13 2j.2Sno.3.i,j.£, £!2S.£2il£.S ££0.££2i2i2« ~ 
SEVERITY 

17011 6 delta expression too small 

17012 E delta expression too large 



3. 2. 2 • 475. 14 iiasaiSS. 21 QjLk3i ££LU£&U£&&« " None 



3.2.2.476 5.U22£.2.aL2!D • " sc_array 



3.2.2.476.1 P;a£112.£2» - Perforin statement checking on a node of type 'array 1 . 



3.2.2.476.2 ASSUaaJtiaOl* None 



3.2.2.476.3 l2Ql2J2£n£a.ij..o.n L20.2li2.a2* ~ This Subprogram is written in Ada 



3.2.2.476.4 Lteea 1 S2SLLA££iy.2JLi> ~~ This subprogram is not used recursively. 



3.2.2.476.5 ii2Si.2Sl 2L jLitLLjCl • ~ scp„decl 



3.2.2.476.6 HfiSi !2££2Q<l2G£.i25> - None 
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3.2.2.47o.7 laLiiSt ££&SQ4&a£l£2* ~ None 



3.2.2. 476,a 5.iiSaii£.aa£.ain y.lli.P.llllX« - Outside Package. 



3.2.2.476.9 Fuoct Ion Z Pro cadur e . - This subprogram is a Procedure. 



3. 2 .2 .476. 10 E2£2!al 2..i£.3!2££££2.« ~ 

subtree: in cdm_type. c.node.ref ; — reference to diana node 

to be checked 

contexts inout st:ntchk.context_rec» — defines context in which 

this node appears 



3.2.2.476.11 £i.a.e - None 



3.2.2.476.12 Ai£p.r_i£hjs. - 

if MAINTENANCE option A> then 

PRINT "at node"* nooe» "of type"* cde_t ype • ge t.node. i d ( nod e ) » 
"context * % context> 
if THIS node has already been flagged as in error) then 

return; 
end Iff 

CHECK as_dscr t_range_s> 
CHECK as_constr a i ned> 

if SUBTYPE indication (as constrained) not constrained) then 

ERROR 17013> 
end if; 



3.2.2.476.13 aia2Q2s.i.ic. as.ss.ga as asaaLaiai* - 

SEVERITY 

17013 £ unconstrained array component 
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3.2. 2. 476,14 2l 0.312 £ALiA£i.Ur..£l« ~ None 



3.2.2.477 Iy.h2ro.2c.Sa* ~ sc.dscrt.r.s 



3.2.2.477.1 P.uf.P.£S£« ** Perform statement checking on a node of type 
' dscr t_rang_s 1 • 



3.2.2.477.2 As.5.yj»o.li.o.ns.. "* None 



3 •2.2. 477. 3 Iiai^2£a£ii]LL<iQ. • - This Subprogram is written in Ada. 



3.2.2.477.4 Us.s,£ 8££!AL£ilSj.Y.« " This subprogram is not used recursively. 



3. 2.2. 477. 5 Ne.sJk£d, *i£$ij.n. - scp_decl 



3 .2 .2. 4 77 .6 HfilLk j2£&£Qil£ri£jL£S« None 



3.2.2.4 77.7 laxasl QSflSHilS.D.S.iSl • "* None 



3.2.2.477.8 Sn&fiL 221.221 YiliiLLlilY.* ~ Outside Package. 



3.2.2.477.9 Eu n .££.ifif2iL£ r .2.£ SISALS. • "" This subprogram is a Procedure. 



3.2.2.477.10 P.aLH2SJlS£S« " 

subtree: in cdm_type. c.node.ref J — reference to diana node 

to be checked 

context: inout staitchk.contex t_reci — defines context in which 

th i s node appears 
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3.2.2.477. 11 ii£e.;Ff > f - None 



3.2.2.477.12 AJLaatilfiffl* - 

if MAINTENANCE option A> then 

PRINT "at node% node* "of type w » cde_t yp e . get_node_ i d ( nod e ) » 
"context *' "» context> 
if THIS node has already been flagged as in error> then 

re turn i 
end if; 

for EACH element of as_list> loop 

CHECK dscrt_range> 
end loop} 



3.2.2.477.13 aiaaQflilifi !ii^£Si fieQ££al«^« - None 

3.2.2.477.14 fciamale.* at Qlla ltf.iLSi.ULSS- - None 



3.2.2.478 Sj22fi,Lo,£LajB« - sc^record 



3.2.2.478.1 SLu£flaSS« " Perform statement checking on a node of type 'record* . 



3.2.2. 478.2 i£lU!22ijLllIlS« ** None 



3.2.2.478.3 laalSfllSLQ.i.iiJfciaO. L«LD.2Ua.a£« ~ This Subprogram is written in Ada. 



3.2.2.478.4 LJs.e.<£ Re.ayx£iv£ll« ~ This subprogram is not used recursively. 



3.2.2.478.5 Nested i£ithj.n. - scp_decl 
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3.2.2.476.6 Sail iifiaailil4I2fi.iaS» ~ None 



7 IaL££.i ££££a£L&0.£.i.S.§« ~ None 



3.2.2. 478.8 £y.jaDxaar_a.m Vis.j.aJLlii£» ~ Outside Package. 

3.2.2.478.9 £uQ£ii2a££L2j££a'y.£e.« - This subprogram is a Procedure. 

3.2.2.478.10 Eorjuai p ~ 

subtree: in cam_type • c.node.r ef } — reference to diana node 

to be cnecked 

context? inout st.ntchk.context_.rec> — defines context in which 

this node appears. 

3.2.2.478. 11 iidj3,-££f,e.c.£.i. - None 



3.2.2.478.12 AiaaLiltiai- - 

if MAINTENANCE option A> then 

PRINT "at node"* nodei "of type"* cde^type.get.node^ i d( node) » 
"context = "» context> 
if THIS node has already been flagged as in error) then 

return; 
end if; 

for EACH element of as_list> loop 

CHECK comp> 
end loop; 



3.2.2.473.13 aiaaaaalia Nasaaaas Ssnsr.aisst. - None 
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3*2.2.478. 14 iiamaiSS ai 2a£& UL£U£IU££i» - ^ons 



3.2. 2.479 iuaa£22£a!3« sc.var j ant_p 



3.2.2.479.1 ?»U£ft2Sa« Perf orn statement checking on a node of type 
• var i ant_par t • • 



3. 2. 2. 479. 2 A^ujaaiiaaS* - None 



3.2.2.479.3 IjalSfflaQlaLLfiQ. L3.0.2aaa£,» ' This Subprogram is written fn Ada. 



3.2.2.479.4 \LZSLSL SscutSLYSl Y_« ~ This su-bprogram is not used recursively. 



3.2.2.479.5 £ias£sa SLilfliQ* - scp_decl 



3.2.2.479.6 Hail QsaaflO'aQiiaS.' ~ None 



3.2.2.479.7 laiasit Qaaaafi^SSLiSJL* ~ None 



3.2.2.479.8 Suaa£2a£a!2 iiiiSililX* ~ Outside Package. 



3.2.2.479.9 £yaej^j.2n.££.£a£aay.££ • ~ This subprogram is a Procedure. 



3.2.2.479.10 £ar.!sai P.a£aisaia££« - 

suotree: in cdm_type. c.node.re f J — reference to diana node 

to be checked 

context: i noui stratchk.context_rec; — defines context in which 

this node appears 
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3.2.2.479.11 iia.e.-£f.f.e.c.£s.. " None 



3.2.2.479.12 Aia2Liitlffl« - 

if MAINTENANCE option A> then 

PRINT "at node's node* "of type's cde_tyoe •get.node.i d(node) » 
"context * '% contexts 
if THIS node has already been flagged as in error) then 

return; 
end if} 

CHECK as_narne> 

INITIALIZE discrete range coverage data structure) 
CHECK as.var i ant_s> 



3.2.2.479.13 2±a2Q2££ic. SSQ.Sia.LSii- - None 



3.2.2.479.14 SiaSBaiSS 21 0.^3. SJU.U£tU£S£« - None 



3.2.2.430 lu.llS.LSLSLL2.Hi* - sendee l_s 



3.2.2.4-30.1 tiLQ.2 ££. • ™ Perform statement checking on a node of type 'dacl.s'. 



3. 2 .2. 480 .2 As.s.y.Efiiio.QS* - None 



3.2.2.450.3 l2QiSQ£Qla£i2H L&H2U£a&» This Suoprograu is written in 4da. 



3.2.2.430.4 UiSi E§.5.y.£liia.il • - This subprogram is used recursively. 



3*2. 2. 430.5 Ne.s.isgl Within. - sco.decl 
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3.2.2.480.6 H2Si £&&&!l£ > &£lS.i.&£« ~ None 



3. 2. 2. 480 .7 Ii£.ae.i £SftSQ<2£Qcj.e..5,. - None 



3 •2.2. 480. 8 Siikataataffi V±sJ.aiJLLi*« - Outside Package. 



3.2.2. 480.9 £uflS.iiaQZf-£2«Sa4ULS» ~ This subprogram is a Procedure. 



3*2.2.480.10 Earjsal P-aLlGSiS£S« ~ 

subtrees in cd<n_tyoe.c_node_ref; — reference to diana 

node to be checked 

contexts in stmtchk.context_recj — defines context in which 

this node appears 



3*2.2.480. 11 Si2S=£t!££i.£« - None 
3.2.2.480.12 AlaatiitliS- - 



if MAINTENANCE option A> then 

PRINT w at node"* node* "of type"* cde_type • get.node.. i d ( node ) » 
••context ■ % context) 
if THIS node has already been flagged as in error) then 

return; 
end if; 

for EACH element of as_list> loop 

CHECK 0ECL> 
end loop; 



3.2.2.480.13 lUasaa&iia Sasaaaas £sns£aisd- - None 
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3.2.2.430.14 iilsaJ-SS. 21 £U£a £Ji£y££.U££S» - None 



3.2.2.481 lyLJifi£iia£a,(n. - sc_pack_body 



3.2.2.481.1 £y£0.p.ie. — Perforn statement checking on a node of type. 
* package^body * • 



3.2.2.481. 2 A£s.u.mp.£io.£lS. - None 



3.2.2.481.3 l22iS(2£0.1aii2Q L3LQ.2ya££« ~ This Subprogram is written in 4da. 



3.2.2.481.4 Us,es[ Recurs, j ye, I, y . - This subprogram is not used recursively 



3.2.2.431.5 jliiiliS* " scp_decl 



3.2.2.481.6 HfiSi USfi&Q£UlI2SLi.££ • • None 



3.2.2.481.7 I<i£.2£i QSIi£IlilSi2£iaS» ~* None 



3.2.2.431.8 Sub.p.ro.ar.a.m ViSifiLililY.* - Outside Package. 



3.2. 2.481.9 gunction/Proceg' ur e. - This subprogram is a Procedure. 



3.2.2.481.10 £2£!ai t^L^BSil&Ll* ~ 

subtree: in cdm_t ype • c_node_re f ; — reference to diana 

node to be checked 

context: in stm tchk. cont ex t_rec » — defines context in which 

this node appears 
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3 • 2 . 2 • 43 i . 11 iiaSzSiJLsaiS* - None 



3.2.2.431.12 AjLaflciiUa* - 

if MAINTENANCE option A> then 

PRINT "at node'S node* "of type"* cde...type.get_node..id(node) » 
"context » " • contsxt> 
if THIS node has already been flagged as in error> then 

r eturn j 
end if; 

CHECK as_b I ock_s tub> 



3.2.2.481.13 aiaaaaiiia ie.ss.aas5 SsasLaisd. - None 



3.2.2. 48i. i* jiassalss. a! LLaia su.tit iur.ss* - None 



3.2.2.482 iiikaf.aa£.a2l« - sc.private 



3.2.2.482.1 fLlLaaSS* ~ P.erfom statement checking on a node of type 'private 
or • l-pr i vate * . 



3.2.2.482.2 A5SMiEaiiaQS» - None 

3.2.2.482.3 l2alS2SQi.ai.iaa L3.aaaaas« - This Subprogram is written in Ada 

3.2.2.482.4 iis^a" &aaaL£JLy.S.Ly.* ~ This subprogram is not used recursively. 

3.2.2.432.5 iisiisa '4 j^hj".* ~ scp_decl 
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3.2.2*t32.o Ho.5,1 Q.Sa.a.Qjlf.QS.ilS.* ~ None 



3.2.2.48 2.7 I^r^ak sisCSHlaaSLi® 5 • - None 



3. 2. 2. 482. a SukfiL0.2C.aE! y.iii£.iiiil • ~ Outside Package. 



3.2.2.432.9 £.UD.fiLiaa^£.£2SailU£l« ~ This subprogram is a Procedure. 



3 .2. 2. ^82. io SLacaal SLacasalar-S' * 

suotree: in cdfn^type. c.node.ref J — reference to diana node 

to De checked 

context: in stmtchk. context../ ec ; — defines context in which 

this node appears 



3.2.2.482.11 iiflas£tla£ii. - None 



i. 2. 2. 482. 12 A!a2£.j.iHi2» - 

if MAINTENANCE option A> then 

PRINT "at node'S node* "of type'** cde_t ype. get.node.. i d ( node ) % 
"context * "» contexO 
if THIS node has already been flagged as in error) then 

return; 
end if; 

if CONTEXT not the visible part of a package spec> then 

ERROR 17014> 
end i f ; 



3.2.2.48 2. 13 D.ia2QQ.3.£i£ E£S£a2£S £e«lS£alS4- - 
SEVERITY 

17014 £ priv declaration does not appear in pkg spec. 
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3.2.2. 4 82. i4 £X,22iii£S, 21 2313. £££Jl£lU££S« ~ None 
3.2.2.483 £y,att£S.2£221» ~ sc.task.dec I 



3.2.2.483.1 Py.£p.flsa» - Perform statement checking on a node of type 
•task. dec 



3.2.2.48 3.2 iSiUEfiiiaai* "~ None 



3.2.2. 48 3.3 Iaai£!2£Qiaii2a La.D.auaaa« " This Subprogram is written in Ada. 



3c 2. 2. 433. 4 - This subprogram is not used recursively. 



3.2.2.483.5 ^SSiSS iU&aifi* " scp„decl 



3.2.2.483.6 Q£ft£a3finai£S- ~ None 



3.2. 2. 483.7 latasi IiSlifinilS.Q£iSl« None 



3.2.2.483.8 Su.aft£22£321 LLSi&iiiiY.* - Outside Package. 



3.2.2.483.9 gunc t; ion / P.f-0,ce <3uce . - This subprogram is a Procedure. 



3.2.2.483.10 £2f.Sal 2, 3£32 £££££• ~ 

subtree? in cdm.type.c_node.ref; — reference to diana node 

to be checked 

context: in stmtchk.context.rec » — defines context in which 

this node appears 
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3 ..2.2.<» 3 3. II iio.£-£f.f.a£lLS» "* None 



3.2.2. 48 3.12 ^ia2LiJtl22l» ~ 

if MAINTENANCE option A> then 

PRINT "at node'S node, "of type", cde_.type.get„.node < _id<node) * 
"context ■ % context> 
if THIS node has already been flagged as in error) then 

return; 
ena i f i 

CHECK as_task_def> 



3.2.2. 483. 13 iiiaSQ2Sii£ £sa«£2iSd« - None 



3.2.2.483.14 Ejiamalss. o£ Qala &fc£ii£iULft£« - None 



3.2.2.484 iy,S2£22La!S» - sc_task_spec 



3.2.2.434.1 PiiLttaiS.* " Perform statement checking on a node of 
• task_sDec ' • 



3.2.2.484.2 As.susaii2.Q5* ~ None 



3.2.2.484.3 l2al£2i e .aJLa,LL2Q LaaauaSS* ~ This Subprogram is written in Ada. 



3.2.2.484.4 ys.e.<£ RecyrsJ ve! y. - This subprogram is not used recursively 



3.2.2.484.5 Ne.s.££g. wiltlin. - scp_decl 
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3. 2. 2.484.0 iiasl iiaa.S.Q^lO.S.iS.l* ~ None 

3.2. 2.4 8 4,7 laLSfii. QtaaaQ£aa£iSS • " None 

3.2.2.484.8 Syaaiaanaffi ^iiiiiliil* - Outside Package. 

3.2.2.484.9 £\iQ£.LLQ.Q,LE.LSL£LtL&\AL2.» ~ This subprogram is a Procedure. 

3.2.2.4 84,10 EatiSai L2.LaS2.LS.LZ* 
suotree: in cd.n^t ype • c.node.ref i 

contexts in strotchk. c ontex t_rec > 



— reference to diana node 
to Pe checked 

— defines context in which 
this node appears 



3.2.2.484.11 iiflfi-atlaaii- - None 



3.2.2.484.12 Hgjitiiha. - 

if MAINTENANCE option A> then 

PRINT "at node'S node* "of type"* cde_type .get^node^i d(node) » 
"context 38 % contex t> 
if THIS node has already been flagged as in error> then 

return ; 
end if» 

CHECK as.decl _r ep_s> 



3.2.2.484.13 aia.20.as.iis Ssisaaas Ssa&£Sisa"- - None 
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i •2.2.4?^ ,14 iiamaiai at .2.2. 2ir.u-i!-£as« - None 



3.2.2.435 £.«e£P.2.£2,<B» ~ sc_task_body 



3.2.2.485.1 £u,££I_s.«» . - Perform statement checking on a node of type 
1 t ask_oody • • 



3.2.2.485.2 A S.3.U2 aiio.n_. - None 



3.2.2.485.3 l22i2E£Qiil^i2Q. LiJ12U2aS« *" This Subprogran is written in Ada. 



3.2.2.435.4 LisaA S££U£Siial^» This subprogram is used recursively. 



3.2.2.485.5 Nails.. Within. - sco. dec I 



3.2.2.485.6 H^il &Saan-£E£.i£2« - None 



3. 2. 2. 485. 7 Iar.-2£l U^P.S!l^ai^SiSS • ~ None 



3.2.2.485.8 lu2££22£3.!2 - Outside Package. 



3.2.2.485.9 • " This subprogram is a Procedure. 



3.2.2.485.10 £2 LID a I !Lii£a!2£._JL£S.* ~ 

subtree: in cdm_type.c_node_.ref > — reference to diana node 

to be checked 

context: in st.utchk. context _rec? — defines context in which 

this node appears 
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J. 2.2. 4 3t> • LI iillzilliiil* - None 



3.2.2.485.12 alaaciiUni- - 

if MAINTENANCE option A> then 

PRINT "at node"t node* w of type*N cde^type.get.node. i d( node) » 
"context * % context) 
if THIS noae has already been flagged as in error) then 

return; 
end i f.J 

CHECK as.b I ock_stuo> 



3.2.2. 435, 13 iiaSQfliiiS. JlaSiaaSl ££ne.£ais4. - None 



3.2.2.48 5.14 Ejsa.njaJ.aS. 2t Ball Si£U£i.U£££« - None 



3.2.2.486 Sy.na^aar.a.a. - sc_entry 



3.2.2.48o.l £u£fiaS£« - Perform statement checking on a node of type 'entry* • 



3.2.2.486.2 £,S.SU!2fl£.±a r J.l« ~ None 



3.2.2.486.3 laalsaSQlaidLaQ. L3.a2U.aas* ~ This Subprogram is written in Ada. 



3.2.2.486.4 \iSuS.sL &££U£SdL Y-S.il • ~ This subprogram is not used recursively 



3.2.2.486.5 Ne.s.£e.g; liitlin. - s cp.de c I 
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3 .2.2 .436. 6 liiSi Slfi.S.aSlaGQ.iH* "* None 



3.2.2.436.7 Ia.r2L-£. £e.ae.Qd e.n £i.e.i . ~* None 



3.2.2.486.3 £ukaL22f.2JZl iiiiailliy. • - Outside Package. 



3.2.2. 436.9 EtiQ£ii£a£2X&£&<!uj:e> ~ This subprogram is a Procedure. 



3.2.2.486.10 L2L_ii £LaLa.!iiai.§.LS.» ~ 

suotree: in cdm_type.c_noce.ref; — reference to diana node 

to be checked 

context: in stmtchk.context_.recj — defines contet in which 

this node appears 



3.2.2.486.11 .id.. = £U££tS. " None 



3.2.2.486.12 .iaSLii-Ol- - 

if MAINTENANCE option A> then 

PRINT "at. node's node* "of type's cde_type .get_node_ i d ( nod e ) » 
"context ="» context > 
if THIS node has already been flagged as in error) then 

return; 
end if j 

ChECK as.dscr t _r ?nge_vo i d> 

CHECK as_param_s> 

if CONTEXT not a task spec) then 

ERROR 17015> 
end if; 
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3. 2.2. 48 1>. 13 2iaSQ2iii5. !-£5Ii211 0.2 L Slid • ~ 
SEVERITY 

17015 E entry declaration allowed only in task specification 



3.2.2.486.14 SLiasaiSS. at iiala lLLUa£.U£«£« - None 



3.2.2.487 Iy.!lttr.2,aLaS« sc.dec l_r eos 



3.2.2.437.1 £af.aa&&« *" Perform statement checking on a node of type 
• dec I _r ep„s' . 



3.2.2.487.2 A3„£u.2ia£JLaai» - None 



3.2.2.487.3 Il22liaS.Q,JialiSQ LlQauaaS « " This Subprogram is written in Ada. 



3.2.2.437.4 Ussa SaaULliveJ.*. - This subprogram is not used recursively. 



3.2.2.487.5 N.e,5.£,e.a Wii.tlJ.Il • ~ scp.decl 



3.2.2.487.6 HfiSi Q£aaa<lS.!l£.Ul* - None 



3.2.2.4S7.7 . lataai Qsaaaa'aaaias* - None 



3. 2.2.487.8 £t,iaa£oa£a2> V j? i„b 1. | i % v . - Outside Package 



3-1009 

"Use or disclosure of technical data and/or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Coflioiler *ach i ne-I ndependeh t Section C5 Specification CS-CP-005 < '-Cd4 
i November 19 5 3 



3.2.2.487.9 £ii,!l£ l ii2D.Z.£ r -2£S.^U£a • "* This sudorogram is a Procedure. 

3. 2.2. 487.10 FarjBal E&L22£l£XLS« ~ 

subtree : in com^typ e.c.node.ref J — • reference to diana node to be 

checked 

context : in stmtchk .con te xt_rec ; — defines context in which 

this node appears 



3.2.2.437.11 SJ.£e.-5.£f - None 



3.2.2.487.12 AiaaciihiS* - 

if MAINTENANCE option A> then 

PRINT "at no(1e"i node» "of type'% cde_type .get_node_ i d ( node ) » 
••context - '% context> 
if THIS node has already been flagged as in error> then 

return; 
end if; 

for EACH element of as - list> loop 

CHECK DECL_R£P> 
end * I oop ; 



3.2.2.48 7.13 2i&2HO.£ii£ ^SSSa2SS " None 



3.2.2.487.14 £x,aj2£l£§, 21 Q2l2. 2lLUfilU£fi£« ~ None 



3.2.2.488 ly,b.2,r,o.££3 4 ai. - sc.generic 



3.2.2.488.1 Pur.a2.SS,* ~ Perform statement checking on a node of type •generic*. 
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£»2 •'$•<» 84*2 £££U2Lfi£i.2D.S. - None 



3*2.2. ¥96, 3 I>aalS2lSQj»ai.i5a LaO.aua.3S* - This Subprogram is written in Ada 
3*2.2.488„4 UiSSl SaaUJLSiialX* ~ This subprogram is not used recursively. 



3.2.2.438.S ^aii5sl jetiJLllj.il* - scp.decl 



3.2.2.488.5 H a si Qsaari^aGaias* - None 



3. 2.2. 438. 7 laiafil Q£2£Q£l2£i£S • • None 



3.2.2.48B.8 l£tLSLL22.L&& V t s i t> 1 1 i tv . - Outside Package. 



3.2.2.488.9 £unc.£i2Q£E£a£e.StUL3« - This subprogram is a Procedure. 



3. 2*2* -4 88. 10 £2£2ai P.aC3!!!SlLjS£S« *" 

subtree in cdm_type.c_node_r.ef> — reference to diana 

rrode to be checked 

content : in s trotchk • context_rec ; — defines context in which 

this node appears 



3.2.2.488.11 _i_e.-_l_____. - None 



3.2.2.488.12 A_£_£j.__m. - 

if MAINTENANCE option A> then 

PRINT "at node"» node* "of type". cde_type «get_node_ i d ( node ) » 
"context » "j context) 
if THIS node has already been flagged as in error) then 
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return; 
end ifj 

CHECK as_gener i c_pararn_s> 
CHECK as.qener i c_header > 



3.2. 2.483. 13 liiaaaflStlS. £&22^3££ QgQqrated,. - None 



3,2.2. 48a. 14 £aajuaiss 2l Qdla SlLUSlUIfil* - None 



3.2.2.489 2ii!ltt£o.3£iiai« ~ sc_.gen_.pa rms 



3.2.2.489.1 £j.r.ao.5,e.* - Perform statement checking on a node of type 
• gener i c.p.aram.s ' • 



3.2.2.489.2 A£syjno.£j.p.n.s. - None 



3.2.2.439.3 Iialaaaaiai.io.a Laaauaas* • This Subprogram is written in Ada. 



3.2. 2.439.4 Uiaa" S^£.Ll£iii.2.Il« - This subprogram is not used recursively. 



3.2.2.489.5 Ne.£i;e.g. £iiOin. - scp.deci 



3.2.2.489.6 &£a&ad£aai££« ~ None 



3.2.2.489.7 Ia£a£l Q£a£Ql £aa±££ • ~ None 
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3.2.2. 499.8 iiilfir aaLaa yiiiHiiiil* - Outside Package. 



3.2.2.4S9.9 £uQ£.iii20.Z.£.£a£ailU££ • * This subprogram is a Procedure, 



3.2-2.489.io £a£aal P-aLaaalsrs • - 

suotree ! in cdm.tyoe.c.node^r ef i 
context s in stmtchk.context-rec; 



reference to diana 
node to be checked 

defines context jn which 
this node apoears 



3.2.2.489.11 SiiSr£lla£iS» - None 



3.2.2.489.12 Aj.22LiIt!m- - 

if MAINTENANCE option A> then 

PRINT "at node"t node* "of type M » cde_type.get - .node - i d ( node) » 
"context * " * context> 
if THIS node has already been flagged as in error> then 

return; 
end if; 

for EACH element of as - .list> loop 

CHECK gener i c^par am> 
end loop; 



3.2.2.489.13 aiasaasiic. ttajasaaas Ssaanaisil- - None 



3.2.2.439.14 EjjaiSfilaS. 2t &a£a SIr.U£lil£SS^ " None 



3.2.2.490 Iuiia£o.aLa!n» ~ sc_simp..r ep 
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3. 2. £.490. 1 P'iLaaig,* - Perforn statement checking on a node of 
1 s i mp I e.r ep * . 



3.2.2.490.2 AaiUE2iiaxi5* - None 



3.2.2.490.3 IaaiS!2£a£ali2!2 Laaauaaa* ~ This Subprogram is written in Ada. 



3.2.2.490.4 UiSSt &&&y.r.£i&&i.X« ™ This subprogram is not used recursively. 



3.2.2.490.5 Nfti^a jiit&ia. - scp.decl 



3.2.2.490.6 tlaSJi QaaSXlSi£fl£,iS.S« - None 

3.2.2.490.7 iatsfit. asaaadaafiiAi* - None 

3.2.2.490.8 Su.aar.22r.afli XiiiLvUil** - Outside Package. 



3.2.2.490.9 £uaai.iaa^£taaaiyxa» ~ This subprogram is a Procedure* 

3.2.2.490.10 £ar.aai la.L3.mLs.Li* - 

subtree s in cam_type.c - node_ref ; — reference to diana 

node to be checked 

context : in s tmtchk .context_rec J — defines context in which 

this node appears 
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3.2.2.49Q. 11 • - ^one 



3.2. 2.490. 12 Aj,a2Liil2ffl» - 

if -MAINTENANCE option A> tnen 

PRINT M at node"* node? M of type*** cde_type.get_node_ i a ( node ) » 
"context * "» context> 
if THIS node has already been flagged as in error> then 

return; 
end ifi 

CHECK as_name> 

CHECK as.exo with static context> 

if AS^NAME denotes an enumeration type> then 

for EACH element of as_exp> loop 

SET s<n_reo for corresponding enumeration literal> 

end loop; 

for EACH literaO loop 

if Sii„REP * (sm_rep for previous I i ter a I ) > then 

ERROR 17016> 
end if; 
end loop; 
else — must be an attribute 
if SIZE attribute> then 

CHECK that of bits is sufficient 
ena i f ; 
end if; 



3.2.2.^90.13 iiiaaaaaiia flaiaaaas Ganaraiaa 1 * - 

SEVERITY 

17016 E inconsistent representation for enumeration literals 



3.2.2.490.14 sLxaaaiaa 2.1 Slala Structure,?. - None 



3.2.2.491 Sy.22Laai.aa* ~ sc.rec^rep 
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3.2.2.491,1 £ii£tt2S.S> - Perform statement checking on a node o f type 
1 record.rep 1 • 



3.2.2. 49 1.2 £.£SLyjEtti.iaa£» - None 

3.2.2.491.3 Ii2ai£aa0.ialia!l Laaauaas.* - This Subprogram is written in Ada. 

3.2.2.491.4 Ussst &£&££3i£&l£« - This subprogram is not used recursively. 

3.2.2.491.5 NasifiSL jiiiilin. - scp.decl 

3.2.2.491.6 iic.s.i. aaaaadaaaias- - None 

3.2.2.491.7 jaxaai QsaaaaanaiaS' - None 

3.2.2.491.6 Iuattf.22L2aritiiiaiJ.ilX- ~ Outside Package. 

3.2.2.491.9 £iiQ2ii2a£££2aalUI.£» ~ This subprogram is a Procedure. 

3.2.2.491.10 £arj2ai ELaL2.2S.l££S,« - 

subtree : in cdm_type.c_node_r ef ; — reference to diana 

node to be checked 

context : in s tmtchk .con text.rec ; — defines context In which 

this node appears 
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3.2.2.491.11 - None 



3.2.2.491.12 ^laSLiI£l£a« - 

if MAINTENANCE option A> then 

PRINT "at node** node» "of type"* cde_type.get_node_id(node) » 
"context * w » context> 
if THIS node has already been flagged as in- error) then 

return ; 
end if; 

CHECK as_exp_vo i d *ith static context) 
CHECK as_corop_r ep„.s> 



3.2.2.491.13 aiiisQftiiic. aasaaa^s Ssasralsa* - *one 



3.2.2.491.14 iiafflaiSS 21 ttala ItLUSlULSS* - None 



3.2.2.492 S.y.HC££LSf.ijL!Il« - sc.comp.reos 



3.2.2.492.1 f.ii£ftfiS£« ~ Perform statement checking on a node of type 
• comp_rep_s ' • 



3.2.2.492.2 &S.s.jima.fcjLaas,» - None 



3.2.2.492.3 IaoJL£l£QjLaJLLi2Q. language . - This Subprogram is written in Ada 



3*2.2.492.4 !2iSi Eas.li£.sjLia,ix» — This subprogram is not used recursively. 



3.2.2.492.5 N£££.e£ Wii.hJ.ri. - scp_decl 
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3.2.2.<+92.& HQ.ii Q^aandj»nc.j.e.£. ~ None 

3.2. 2.492. 7 ianaai. Qaaaa<2aaaiaa- - None 

3.2.2.492.8 Suaataacaa LLsialUlX • - Outside Package. 

3.2.2.492.9 £y 3££iaQ£££aaaa , U£a • • This subprogram is a Procedure. 

3.2.2.492.10 ^aosal iaLasaiaiia* * 

suotree : in cdm^type .c.node.r ef J reference to diana 

node to be checked 

context : in stmtchk.context^recJ — defines context in which 

this node appears 



3.2.2.49 2.11 iiasrSliaall* ~ None 



3.2.2.492.12 Aj.aar.ii*!JB» - 

if MA I HTE NANCE option A> then 

PRINT M at node'S node* "of type"* ede_type • get.node. i d ( node ) « 
••context * % context> 
if THIS node has already been flagged as in' error> then 

return; 
end if;. 

for EACH element of as„.list> loop 

CHECK como - reo> 
end i oop; 



3.2.2.492.13 Qiaanaatia Sasaaaaa Saaataiaa- - None 
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3.2.2.492.14 21 5JLf.ua lU£&£« * None. 

3 • 2. 2. 493 SiiaaLaaLaa* *" sc.comp^rep 

3.2.2.493.1 2utaas&« ~ Perform statement checKing on a node of type •co.up.rep' # 

3.2.2.493.2 AssUffiaJLLaaS* " None 

3*1,1* 493.3 laalsaaaiaiiaa LiL&3kUl&£« " This Subprogran is written in Ada. 
3.2.2.493.4 Uiai &&£UXSi v .S.iY.» *■ This subprogram is not used recursively. 



3.2.2.493.5 *S£lsa iilHia- - scp.decf 



3.2.2. 49 3.6 ttaii, Oeoqn. da nc i es . — None 



3.2.2.493.7 laxaai fiaaaaaanaias* - None 



3.2.2.493.8 SunaLaaLaS! iiSiajJUL&X* ~ Outside Package. 



3.2.2.493.9 PM.nct; iqn/',P,r i ,Q<;edur„e. - Th i s "subprogram is a Procedure. 



3.2.2.493.10 taLiSal P^r,ame t er, s . - 

subtree : in cdm..type .c.node.r ef J — reference to diana 

node to be checked 

context : in stmtchk. contex t.rec; — defines context in wnich 

th i s node appear s 
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3. 2. 2. 493.11 iiaszilt ££15,. - ^tone 



3. 2.2. 493. 12 ^lafiXilillD* ~ 

if MAINTENANCE option A> then 

PRINT "at node 1 ** node* "of type** cde_type.get_.node.,,, i d(node) * 
"context = % context> 
if THIS node has already been flagged as in error> then 

return; 
end if; 

CHECK as.exo with static context> 
CHECK as.range with static contexts 



3.2.2.493.13 iiaaaasxu assaaaas Gsnataiad- - ^one 



3.2.2.493.14 Ejuaalai at l£r.uaiur.s£« - None 



3.2.2.494 Su2ttr.aaf.JL2* ~ sc.address 



3.2.2.494.1 £a£aasa» ~ Perform statement checking on a node of type ♦address'. 



3 .2.2. 494.2 A.5,lU(Saiiafli« None 



3.2.2.494.3 IlQiStDaaiaiiaQ LaaaU2.aS« *" This Subprogram is written in Ada 



3.2.2.494.4 lis£a & 2, S.U £.11,1 - This subprogram is not used recursively. 



3.2.2.494.5 N£s.£,gal ULiGiH* "* scp_decl 



3-1020 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Couoiler Machine-Independent Section C5 Specification CR-CP -0059-C8 4 

1 ^ovenoer 1983 



3.2.2. b Hail asaaaaaaaiai. - None 



3. 2. 2. 494. 7 XaL<i2.i lisaSQ.itaD.aiaSL* ~ None 



3.2.2.494.8 iuiiaLaaLaa iisiailil** - Outside Package. 



3.2.2.494.9 EaQii.tiaaZP.taaaa'y.r.a* - .This subprogram is a Procedure. 



3.2.2.494.10 Farjsai P.aLaEalar.s* - 

suotree : in cdm.tyoe .c-node^r ef » — reference to diana 

node to be checked 

context * in stmtchk.context.rec J — defines context in which 

this node appears 



3.2.2. 494.11 iias=£liaaii« - None 



3.2.2.494.12* 4iaa£ilai2« - 

if MAINTENANCE option A> then 

PRINT "at node"* node* H of type's cde_.type.get_node_ i d(node) * 
"context * H » context> 
if THIS node has already been flagged as in error) then 

return ; 
end i f i 

CHECK as.exp with static CONTEXT) 



3.2.2.494.13 iiaaQaiiia asusasas. £aa£f.ai&a« - ^one 



3.2.2.494.14 ti^iaiss. at aala liLuaiyxas* - None 
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3.2. 2. 495 S,ii£.SL£9.2.£2.2l« ~ sc_var i a* t_s 



3.2.2.495.1 EuLIMLSS.* "* Perform statement checking on a node of type 
* var i antes'. 



3.2 .2. 495.2 A.5,SU2Lfi.._i2 r i£* None 



3.2.2.495.3 Ii32JL£jlJ£Qia-i. 0 .Q U^nqqage. - This Subprogram is written in Ada 



3.2.2.495.4 U_e,a. _e.c.y.£Sj.ve.i_. ~ This subprogram is not used recursively. 



3.2.2.49 5.5 ___i_a; - scp_decl 



3.2.2.495.6 Qsasa-- nSLLSS • - None 



3.2.2.495.7 Ia£3&-. P.SaSO_£nSjL£5- - None 



3.2.2.495.6 £_aa£2S£2,!2 _i-±aiJLjL-Y.» — Outside Package. 



3.2.2.495.9 £.n&_i2a-P.£fi£S._U££ • " This suDprogram is a Procedure. 



3.2.2.495.10 &o.£J2a,i Pa£3E-._.££S» ** 

suotree : in cdra_type.c_node._ref; — reference to diana 

node to oe checked 

context : in s tmtchk • con te x t_r ec; — defines context in which 

this node appear s 
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3. 2. 2. 495, 11 iii£ = £lte.iis. None 



3.2.2. 495,12 A.XaflLiit2Ql» - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type's cde_tyoe • get_node_ i d ( node ) * 
••context * "» context> 
if THIS node has already been flagged as In error> then 

re turn ; 
end if; 

for EACH element of as_list> loop 

CHECK VARIANT > 
end iooo; 



3.2.2.495.13 QiaaO.2S.iifi £££2.IL£££ Qen»f ^ ^<j. - None 



3.2.2.495.14 £xaaaiaS Si QaiS lfc£U£iU£S£.« - None 



3.2.2.496 SuafitaacaiQ* " sc.var i an t 



3.2.2.496.1 Pif.p.o,s.e.. " Perforn statement checking on a noae of type *variant*. 



3.2.2.496.2 &&2U2!&£i2Al* ~ None 



3. 2.2. 496. 3 l22iS2£Q.£a£i£Q. Li.Q2U2£§ * - This Subprogram is written in Ada. 



3.2.2.496.4 U^efl £e,£.U.fJU.!§.l^« ~ This subprogram is used recursively. 



3.2.2.496.5 &e,s.£.e.d. &ilD.iG» ~ scp.decl 
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3 .2. 2. 4 9&.o nasi UaasQl£a£iss« - «one 



3.2.2.496.7 Ia£a§Li D.52£fX3£0.£±SS« ~ None 



3 .2. 2. 49b «cl 5i!A2P.£fiaf.aai YiSiaililY.* ~ Outs ide Package. 



3. 2. 2. 496. 9 tnHS.i.LUXLtLQ.iS.^.HLS." ~ This subprogram Is a Procedure. 



3.2.2.496.10 facisai f-aiaasisia- - 

suotree : cdm_tyoe.c..node_ref $ — reference to diana 

node to be checked 

context : inout stmt chk.context_rec » — - defines context in which 

this node appears 



i f M A I NTif Na nc E option A> tnen 

3 k!nT M it node'S nods* '*of type'** cd e_tyoe . get_node_ i d ( node ) ♦ 
"context - " t context> 
if This noaa has already been flagged as in error) then 

return; 
ana jf; 

for EACH * i em«n t of as_choice_s> loop 

CHECK CHOICE* requiring static expression or name of static subtype) 

INCLUDE this choice is coverage data structure) 

if THERE is duplicate coverage) then 
ERROR 17Q17) 

end if; 
end loop; 

CHECK as_record with static or discr iminant context> 
if DISCRIMINANT subtype is static) then 

if RANGE not covered) then 
ERROR 170L3) 

end if; 
else 

i f RANGE of base type not covered) then 
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n q if; 
enu if; 



3.2.2.496.13 aiaaQfiiiis. nss^£i ££n&f.a.Ud« 



SEVERITY 



17017 



E 



duplicate choice values in record variants 



17108 



discrete range not covered by choice values 



17019 



e 



discrete range not covered by choice values 



3.2.2.496.14 iiafflftlSi 21 Siaia Si£M£tULai« " 

The discrete range coverage data structure is used to check that 
the choices in a case statement* aggregate* or variant record* do 
not overlap and cover the required range completely* 
At any tine during the scan of a sequence of choices* the data 
structure has a list of pairs of integers which represent the 
portions of the discrete range which have been covered so far* 
As each choice is scanned* the list is updated so that adjacent 
choices are "collapsed" into one pair* 
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OISCRETE RANGE COVERAGE 



A (inked list of pairs of (integer) values (a^, bj), i s 1, 
such that *| < b| for ail i, and b j+1 + 1 < a^ +1 for i»t, 

Aftar processing 

whan Z . . 7 s> 
whan 12. 13 *» 
whan IS *> 

the list would be 

Q — 



> • • , n 
n - 1 



» 2 



* 12 13 



■#15 IS 



Aftar processing 
whan 1» »> 

In addition to the previous choices, the data structure becomes: 

B— 



#12 



15 



Figure 3-8, Statement Checking Function 
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3.2.2. 4^7 IuiiL2.2L3.il* *" sc.accsss 



3.2.2.497.1 £.i.Lli2S.£« ** Perform statement checking on a node of tyDe •access 1 . 



3.2.2.497.2 Aisuaaliaas* - None 



3.2. 2. 497.3 laalaafiQiatiflQ LiaauiaS* - This Subprogram is written in Ada. 



3.2.2.497.4 liiaa &&£li.£.2J.l&l£« - This subprogram is not used recursively. 



3.2.2.497..5 Naalsg. ailHin,. - scp.decl 



3.2.2.49 7.6 iiail Qta&arlSQS.iaS.« - None 



3.2.2.497.7 liiL^Si Qsa*QaaaaiSS • - None 



3.2.2.497.8 S^aoxaataffl iisiaiJ.il** ~ Outside Package. 



3.2.2.497.9 Fun,c_£i_aQZPr-aeedur_e . - This subprogram is a Procedure. 



3.2.2.497.10 taLSal l^L^ZSLtuSLLS.* " 

suotree : in cdm_type.c - node_r ef i — reference to diana 

node to be checked 

context : inout stmtchk.context._rec; — defines context in which 

this node appears 
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3.2.2.4Q7.11 iia£-£,ti£2.ikl* " None 



3.2.2.497.12 Al£0.£ilh(2. - 

if MAINTENANCE option A> then 

PRINT "at node's nadet "of type"* cde_type.get_node_ i d(node) » 
"context * "» context> 
if THIS noae has already been flagged as in error> then 

return ; 
end if? 

if CONSTRAINT is present for type which is already constrained> then 

ERROR 17020> 
end i f } 

CHECK as - constrained> 



3.2.2.497.13 iiiasQaalia iSsnaasi ^aar.ai£d« 

SEVERITY 

17020 E duplicate constraints 



3.2.2.497.14 laa2fi.Ua al aaia Si£US.lUr.aS- - None 



3.2.2.498 lu b .fi. r .22L31« * sc_ i tem_s 



3.2.2.498.1 f.U.r.fl.21£« Perform statement checking on a node of type M temps'. 



3.2.2.498.2 As.s.y.(aaii.2a5» "" None 



3.2.2.498.3 l22i.£!2£QiaijL2Q l^ngu^ge . - This Subprogram is written in Ada. 
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3.2.2.496.4 'iSLSi £aS,y. r .£iY.£il« ~ This subprogram is used recursively. 
3 • 2* 2 .498.5 NaslSfl aiittlia* " scp_decl 
3. 2. 2. 498.6 Hflii Qfia£0.££D.£jL£5« - None 



3 .2. 2. 498 .7 liLaai QsaaH.d£ri£iS£« ~ None 



3.2.2.498.8 SiilaiaaUffi iiSiflilii^* - Outside Package* 



3.2.2.498.9 Func£ ton^P ro ce d yr e, . - This subprogram is a Procedure. 



3.2.2.498.io Earjaai ?.ar.ame.i.e£s.. - 

subtree : in cdm_type.c.node_ref » — - reference to diana 

node to be checked 

context ? in s tmtc'hk • con text, rec ; — defines context in which 

this node appears 



3.2.2.498.11 5.iaa = £fif.£is. - None 



3.2.2.498.12 ^iao.f.iihia. - 

if MAINTENANCE option A> then 

PRINT H at node"* node* -"of type's cde_type .get.node.. i d ( node ) » 
"context * "> context> 
if THIS node has alreaoy been flagged as in error) then 

re turn j 
end if; 

for EACH element of as_list> loop 

CHECK ITE^O 
end looo; 
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3.2.2.493. 13 aiasaaalia Saaiaaaa Saostaiia* - None 



3. 2.2. 496. 1-4 feiafflalSS. Q.L Qaia lt£lA££.U£Sa« - sc.procedare 



3. 2.2. 499 Iukk£SLa£a!2« "* sc.procedur e 



3.2.2.499.1 £iiL2.o,S.£ • - Perform statement checking on a node of type 
•procedure*. 



3 .2.2.4 99 .2 iS.SUSfijLi.o.nji* - None 



3. 2.2. 499. 3 XiialSiaaaiaiiaD. LaaaiiaflS* ~ This Subprogram is written in 4da. 



3.2.2.499.4 iiiaa ft?,c.u,csi,ye, f, Y_« ~ This subprogram is not used recursively 



3.2.2. 499.5 Ne.s.££jl gila^n,. - scp_decl 



3.2.2.499.0 Has! aaaaa^aaaisa* - None 



3.2.2.499.7 ia£aai £iaaaa^aaaias» — None 



3.2.2.499.8 Suaa£a2£aa liaiaJLLiil • - Outside Package. 



3.2.2.499.9 EuqcI Lan L Pro ce_dur e . - This subprogram is a Procedure, 



3-1030 



"Use or disclosure of technical data and for computer software 
is subject to the restrictions on the cover of this Document." 



ALS Couoiler Mach ine-Indepenaent Section C5 -Spec I f i cat i on C3-CP-0059-C84 

I November 1983 



J. 2.2. <+99. 10 t2L2il £a£ilEai£££- - 

suptree s in cdrc.typ e. c.nodR.r ef J — reference to Plana 

node to be checkeo 

context s In st.utcnk.context_rec» — defines context in which 

this node appear s 



3. 2. 2. 499.11 iiflS-£X.iS£ii« - None 

3.2.2.499.12 Uafl£ili22!- ~ 



if MAINTENANCE option A> then 

PRINT "at node'S node» "of type"* cde_type. get^node.. i d ( node) * 
"context 3 "» context> 
if THIS node has already oe en flagged as in error) then 

return; 
end if; 

CHECK as.paraiTi_s> 



3.2.2.499.13 aiaaaaalia fisaiaaas £saa£ajksd- - None 



3.2.2.499.14 Px,ama±e.s. 21 9.a£a 5i£U£iM£«5- - None 



3.2.2. 500 Suafi£2a£aiB» ~ sc_f un ct i on 



3. 2.2.500.1 £u£tt2s.£. - Perform statement checking on a node of type •function*. 



3 .2.2.5 00 .2 £jL£Ui22ii2!2S« ~ None 



3 .2.2. 500. 3 Iiai.sasaiai.L2Q Laaauaas* - This Subprogram is written in Ada. 
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3.2.2. 500.4 UigS. &&£u.£$iy.e.l£*< ~ This subprogram is not used recursively 



3 .2. 2 •500.5 JiasiSsi !iiiJ2ia» ~ s cp_dec I 



3.2.2. 5 00. 6 Hasi Qsasa^saaisS* - None 



3.2.2.5 00 .7 Xaiasi P.aaSflile.ncJ.e.1. - None 



3.2.2.500.3 iii2fi£aa£afli &L«U«Uli£X« - Outside Package. 



3.2.2.500.9 EuafiiiaaZfiasaiiULS* ~ This subprogram is a Procedure. 



3.2 .2. 500. 10 £2£3al Parapet ers . - 

subtree : in cdrn.type .c^node^ref ; — reference to diana 

node to be checked 

context : in stmtchk. context^rec? — defines context in which 

th i s node appear s 



3.2.2.500.11 ii^5-£If e.£is. - None 



3.2.2.500.12 Aiaatiihoj. - 

if MAINTENANCE option A> then 

PRINT "at node"* node» "of type's cde^type .get.node. i d ( node ) » 
"context - '* * context> 
if THIS node has already been flagged as in error) then 

return; 
end if; 

CHECK as_param_s> 

CHECK as.constra ined_voi d with static CONTEXT) 
for EACH element of as.param.s) loop 

if NOT an IN parameter) then 
ERROR 1702l> 

end if; 
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end loop; 



3.2.2.500.13 aiaaaaafcifi Eassaaai Ssoaiaisfl* - 

SEVERITY 

17021 £ illegal mode for function parameter 



3.2.2. 500. 1A =xaii!ttlss 2t ItLUSlULSS* - None 



3.2.2.501 2y.aaf..22X2.!Il« *" sc_par am_s 



3.2.2.501.1 £Lu£fi2£a« ~ Perform statement checking on a node of type 'paramos*. 



3.2.2.501.2 lSiy.2ai.iaQ5* ~ None 



3.2.2.501.3 IjQ2lS!£Qla&ifiQ La0.3Uajaa« This Subprogram is written in Ada. 



3.2.2. 501. A USLSa" Rs.SLUf.Si - This subprogram is not used recursively. 



3.2.2.501.5 Ne.s.£e,a iliiaifl* - scp.decl 



3.2.2.501.6 tjasi QaaaaslaaSpias,* - None 



3.2.2.501.7 Iarae.i, P.gaaQJlaD.Si.aS • *" None 
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3.2.2. 501,6 i^2£o.a£,a2 iisiiiiilv, - Outside Package. 



3. 2.2.501.9 Eua££iaa£f.iai*£Uf.a» ~ This subprogram is a Procedure, 



3,2.2. soi.io Eataai P.ar.a<2ai$£i« - 

subtree : in cdm_type.c..node - ref i — reference to dlana 

node to be checked 

context : in stmt chk .con text^rec # — defines context in which 

this node apoears 



3,2,2.501.11 J,i^g-£f,ie.cj l i. - None 



3.2.2.501.12 AiaaLiilia* - 

if MAINTENANCE option AX then 

PRINT H at node"* node* "of type"* cde_type.get_node - id(node) » 
"context * " t context> 
if THIS noae has already been flagged as in error> then 

return; 
end if ; 

for EACH element of as_l i st> loop 

CHECK PARAM> 
end loopi 



3.2.2.501.13 JUaaaailia Nassaass saaacaisd- - None 



3.2.2.501.14 £x,aJ2aiSS al fiail 5i£US£U£.££- - None 



3.2.2.502 SLuaanaanas* - sc_in 
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3.2.2.502.1 PiLk,as,e. - Perform statement checking on a node of type 'in*. 

3.2.2.502.2 Aasiunp.ij.o.n.5. - None 

3.2.2.502.3 Ijaalaianiaiifla Laaauaas* - This Subprogram is written in Ada. 

3.2.2.502.4 ii5,£0. dfiSLULliialX* " This subprogram is not used recursively. 

3.2.2.502.5 Nasissl ailkifi. - scp.decl 



3.2.2. 502.6 tiaaJL fifiaaadSQSLiaS* ™ None 



3.2.2.502.7 IataSti Q£&£ai2ail£i££ * - None 



3.2.2. 502.8 Saaatasxaia Yj.s.iajJLiJLx,. - Outside Package. 



3.2.2. 502 • 9 Func t i qn/ ^r,o c,eduf e, . - This subprogram is a Procedure. 



3.2.2.502.io EarjaaJ. fLar-aa ~ 

suotree : in cdm <- ,type.c - node - .ref ; reference to diana 

node to be checked 

context : in stmtchk .context_rec ; — defines context in which 

this node appears 



3.2.2.502.11 £,i££z£li££i£« - None 
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3.2.2. 502. 12 ai22Lilia« ~ 

i f -MAINTENANCE option A> then 

PRINT "at node*** node* "of type's cde.type. get.node. i a ( node ) * 
"context * n f context> 
if THIS node has already been flagged as in error) then 

return; 
end if; 

CHECK as.tyoe.spec witn static context) 
CHECK as.exp.voio with static CONTEXT) 
if AS^EXP.VDIO not void) then 

if AS. TYPE. SPEC is limited private) then 
ERROR 17022) 

end if; 
end if; 



3.2.2.502.13 aiaan.flitia ilasiaa&s fisaar-aisd. - 

SEVERITY 

17022 E illegal parameter initialization 



3.2.2.502.14 ixaialss, al Qaia lt£U£i.U£ftS« - None 



3.2.2.503 £y,aar.aa£aOL» - sc. out 



3.2.2.503.1 ?.a££asa« - Perform statement checking on a node of type •out* or 
'in out'. 



3.2.2.503.2 As.SUfliaiiaa5.» ~ None 



3.2.2.503.3 laalfiaaaiaiisa Laaauaaa* - This Subprogram is written in Ada. 
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3.2.2.503.4 UiSfl. tiaS.y.LSiiS.il* ~ This subprogram is not used recursively 



3.2.2. 503. 5 NasiSfl WiliLLD,. " scp.decl 



3.2.2.503,6 aasi QgQendenci es. - None 



3.2.2.503.7 Ia£aal Qgpgndenc i e s . - None 



3.2.2.503.6 Sii£flr. 231.32 iisiJiiJLLiY.' ~ Outside Package. 



3.2.2.503.9 PijtQ^^i2Q^,£rqg^dyf e . - This subprogram is a Procedure. 



3.2.2.503.10 aaoai EaLajsaian* - 

subtree s in cam. type. c_node_ref ; — reference to d i ana 

node to be checked 

context 5 in sttntchk .context.rec # — defines context in which 

this node appears 



3.2.2.503.11 ii^a-£ltac.ti. - None 



3.2.2.503.12 AlaaaiHsa. - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cde.type .get.node.. i d (node ) ♦ 
"context * n $ context> 
if THIS node has already been flagged 'as in error> then 

return; 
end if; 

CHECK as_t ype_spec> 

CHECK as.exp.void> 

if AS.fcXP.VOIO not void> then 

ERROR 17023> 
end i f » 
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j. 2. 503.13 ^iaaa satis aasssass Ssasiaisd* - 

S E V SRI TY 

17023 £ illegal parameter initialization 



3.2.2.503.14 tiaaalas, Q± p.a.la I££uaiUf.££» - None 



i .2 .2. 504 Sy.fiLa'La2Laa» " sc_sub o_body 



3.2.2. 504.1 2,u£aasS> — Perform statement checking on a node of type 
* subpr ogram„.doay • • 



3.2.2.504.2 AilUfflatiafiS* • None 

3.2.2.504.3 Iaal£2!&a£a£iS,a Laa2UaaS« - This Subprogran is written in Ada. 

3.2.2.504.4 Ussa &££a£JLLY.ai.Y.* - This subprogram is used recursively. 

3.2.2.504.5 5iS2tsa Hilaifl* - scp.decl 

3.2.2.504.6 tiail (2sa£QS£G£J.£l« - None 

3.2.2.504.7 iaiaat Qsaanasnaiss. - None 

3.2.2.504.8 SaaaLaSXiffl - Outside Package. 
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3.2.2.504.9 Ej > £ialian£ p . r .a c .&a\l r .*« "* T "is suoprogran is a Procedure* 



suotree : in cdm^typeeC.node^ref ; 
context : in s trotchk .context_rec ; 



reference to diana 
node to be checked 

defines context in which 
this node appears 



3.2.2.504.11 iisLfi-^X.f.e.s.i.i* - None 



3. 2 • 2. 504.12 &laflLil£Lfli« - 

if MAINTENANCE option A> then 

PRINT "at node"« node* "of type"* cde.tyoe .get.node.. i d( node ) * 
"context « " 9 context> 
if THIS node has already been flagged as in error) then 

return; 
end if; 

CHECK as_header> 
CHECK as.b I ock_stub> 



3.2.2.504.13 Siia2Qi2ati£ £iaSSaa££ fi£0«£aJ^d* " None 



3.2.2.504.14 £aaaa!fi£ al Qala £t£aSia££l» - None 



3.2.2.505 Sukataaf-H* - sc_pack_decl 



3.2.2.505.1 Pyxaass* 
' package„dec I • . 



Perfom statement checking on a node of type 
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J .2 .2. 505 .2 AiiUaaliaQS,. - None 



J. 2.2. 505.3 In&iS!Be.n,i,a]fci2G l»l£l£Ua.a£« ~ This subprogram is written in Ada. 



3. 2*2. 505.4 Us.e.<i &££l.fJLLy.sJ.Y> This subprogram is used recursively. 



3.2.2.505.5 itestsg. Wilhia. ~ scp_decl 



3.2.2. 505.7 lixaal, &£&2Q._£D.cJL£2 • ~ None 



3*2.2.505.8 SiiaaxaSLaffl -i-i-ililY.* Outside Package. 



3.2.2.505.9 tuazLiSLril.&LSLS.S.&ULl* ~ This suoprogram is a Procedure. 



3.2.2.505.10 £a£2al Par.a<n ££££.£♦ - 

subtree : in cdm_type.c_node._ref ; — reference to diana node to be 

checked 

context : in stmt - .chk.context_rec» — defines context in which this 

node appears 



3.2.2.505.11 $J.ii£-£ile.£i,s.. - None 



3.2.2.505.12 _la2cJLy2jfl. - 

if MAINTENANCE option A> then 

PRINT w at node's node*. "of type*** cde_type • get_node_ i d (node ) * 
"context * •*» context) 
if THIS node has already been flagged as in error) then 

return; 
end if; 
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CHtCK 3s.pacKa9e.de f> 

3,2. 2. 505,13 dUaSQaSLliS. ££SS.2.a£S liane.raiasl. - None 
3 .2. 2 .505.1 4 t&affialSS 21 QLala SiJliiaiUtSS* - None 
3.2.2.506 SiJLaai.aaC.a31* - sc_pack_spec 



3.2.2.506.1 SluiaaSS* "* Perform statement checking on a node of type 
' package.spec ' • . 



3.2.2.506.2 4SS.Ui2ai.iaQ5* " None 



3.2.2.506.3 iaaia!BS.aiaiiaQ LaaauaaS* ~ This subprogram is written in Ada. 



3.2.2.506.4 Ussa SaaU££i£&i£« - This subprogram is used recursively. 



3.2.2. 506.5 iiSSJLsa ttjLl&LLQ* - scp.decl 



3.2.2.506.6 Hail iiSaSQS'aO.aiaS* None 



3.2.2.506.7 Ia£.a£i Deoendenc i a , s . - None 



3.2.2.506.8 Sa2af.aar.aai YiSiaiiiiy.* - Outside Package. 
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3.2.2. 50o.9 ^4QS.^i.aOL£&C2£a^^L£ * " Tnis suoprogram is 3 Procedure* 
3 ,2. 2. 506. 10 FatlSai P.aL32£t£££« ~ 

suotree s in cdn_typ e« c_node_r ef » — reference to diana node to 

be checked 

context : in s tmt_chk.context_rec» — defines context in which this 

node apDears 

3.2.2.506.11 - None 



3.2.2.506.12 ^liifitiiiia* - 

if iiAlNTt-NANCE option A> then 

PRINT "at node's node* "of type'** cde_type.get_node_id(node> « 
"context * " i context) 
if THIS node has already been flagged as in error) thei 

return, 
end if; 

CHECK as_decl..s> 
CHECK as.decl _rep_s> 



3.2.2.506.13 iiaaQi2s.lx£ "ss&aa&s Saasialsd* - ^one 



3.2.2.506.14 iiiiattlSS 21 fiaia Slf.US.UlSS- - None 
3.2.2.507 2ub.p.£fla£§gj. - sc_subp_dec I 



3.2.2.507.1 PiiHi2S£. - Perform statement checking on a node of type 
1 subpr ogr am_dec I 
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3.2.2.507.2 *£iU21iiiiaai, - None 



3.2.2.507.3 Iiiai£2ia0.ialil2Q • ~ This subprogram is written in Ada 



3. 2.2. 507. <t UiaSl SaiU.LiilS.il* ~° This subprogram is used recursively* 



3.2.2.507.5 Ne.s.i5d Hililin. - s cp.de c I 



3k 2.2. 307.6 Hfiil Q£a& Q£jL£JL« ~ None 



3,2.2.507.7 larval Qaaaaoaaaias* - None 



3.2.2.507.3 £l2a£a2£ai ^iiiailill* - Outside Package. 



3.2.2.507.9 EiAO.c.i.iaa££r.a£aa , !i£a« ~ This subprogram is a Procedure. 



3.2.2.507.10 £.2£iaal Par amet ers^ . - 

subtree : in cdm^typ e.c.node.ref J reference to diana node to be 

checked 

context : inout context_rec? •— defines context in which this 

node appears 



3.2.2.507.11 SJ.a£-££f,e.als.. - None 



3.2.2.507.12 Aiaaniiaa* - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type", cde.type.get.node. id (node ) f 
"context = " f context> 
if THIS node has already been flagged as in error) then 

re turn ; 
end if; 
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CHECK as_heaaer> 

CHECK as.subprogram.de f> 



3.2.2.507.13 aiaaaaslia Jiassaasi SsaaLaiad- - None 



3.2.2.507.14 txaattiSS. Ql &ala 2l£il£&U££S*< - None 



3.2.2.508 SufitataaLaa* "~ sc.dscrm.agg 



3.2.2.508.1 £U£aaS£» ' Perform statement checking on a node of type 
•discriminant aggregate*. 



3.2.2.508.2 iSiUiHaiiaaS* *" None 



3.2.2.508.3 IaaJ.*ffl2.aidliaa L3.aau.aaa* - This subprogran is written in Ada 



3. 2.2.508. V Uiaa* SaaUL£2iialX« This subprogran is not used recursively 



3.2.2.508.5 N,e.s.£e.a aiitLLfl* - s cp.de c I 



3.2.2.508.6 ua$£ Qsaanilaaaias. - None 



3.2.2.508.7 lanaal Qsaaniaaaias- - None 



3.2.2.508.8 Sgfr gr ogr 3 m, V IS .1^1 1, L%X* ~ Outside Package. 
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3.2.2.508.9 £ii2£iia0..1P.r.a£&jiU r .£,« " This subprogram is a Procedure. 



3.2.2.508.10 fcaCSSS t • " 

suotree ; in edm_type.c - .node - .ref # — reference to diana node to 

be checked 

context : inout context-red defines context in which this 

node apoears 



3.2.2. 508. 11 - ^one 



3.2.2.508.12 HaflLii!2!n» " 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cde_.type.ge t_node_ i d ( node ) « 
'•context * % context> 
if THIS node has already been flagged as in error> then 

r eturn ; 
end if; 

for EACH element of as_list> loop 

CHECK I i st element> 
end loop; 



3.2.2.503.13 ytiULSIlflaiiS. JiSSiaaaS ££Q££a££-i« - None 



3.2.2. 508 .14 tiasalss. ai CLaia Structures. - None 



3.2.2.509 S.y,aaLaaLa2l* ~ sc.rename 



3.2.2.509.1 £,ur.i.aS£« "* Perforin statement checking on a node of type 'rename*. 



3.2 .2. 509. 2 iSlUEaiiaai* * None 
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3.2.2. 509.3 IjaalassaaJLa.y.SQ. LaaaUsiaa* ~ This subprogram is written in Ada 



3.2.2. 509.4 iiasd &2.£U£.£iY.S.j.y.« - Tnis subprogram is not used recursively. 



3.2.2.509.5 JteSisa HilQill^ - scp„decl 



3.2.2. 509.6 tl2Si !isa£aii£QaiSS» - None 



3.2.2.509.7 laiaai P.sasn4aaai.as» - None 



3.2^.2.509.8 Saaaiaaiaai iiiiaiiiil* - Outside Package. 



3.2.2.509.9 Eync.iian.^P.r.aaa^UX.a" ~ This subprogram is a Procedure. 



3.2.2.509.io Eaciaal P-anaisaiats* ~ 

subtree : in edm^type .c„node_r ef } — refernece to diana node to 

be checked 

context : inout context_rec» — defines context in wnich tnis 

node appears 



3.2.2.509.11 §.iaa=£ilaai5« - None 



3.2.2.509.12 Alaar-iins- - 

if MAINTENANCE option A> then 

PRINT "at node H » node* "of type"* cde^type. ge t^node. i d { node) * 
"context * "» context> 
if THIS node has already been flagged as in error> then 

return; 
end if? 

CHECK as_name> 
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3 •2.2.509. 13 iiaSQ2ili£ 2ai&a2SS SSOSLaiaa* - ^one 



3.2.2.509.14 fexaaalft-s al aaia SiLuaiiiLss* - None 



3.2.2.510 Paaiiaa&» - scp.expr 



3.2.2.510.1 £uf.aasa« " Implement the statement checking function for nodes 
involved with expressions. 



3.2.2.510.2 NaaasL a! Saaa£aar.ams^ - 15 



3.2.2.510.3 2aaaafl"ftaaiaa aa Qiiist &a£&as&& Lsll iaaa» - cdm.type* st.nt.chk 



3.2.2.510.4 A^xiiaaal Qsaaalaaaiss Lsll Sadx- - cam.as , sc.ciass* diagnose 



3.2.2.510.5 Paanaaa iaaaiiiaaHaa- 

package scp.expr is 

procedure sc.attr.cal I ; 

procedure sc. aggregate ; 

procedure sc. binary 

procedure sc. member sh i p ; 

procedure sc. par enthzd ; 

/ procedure sc.type.conv ; 

procedure sc.qua I i f i ed ; 

procedure sc. a 1 1 ocator ; 

procedure sc. indexed; 

procedure sc. slice; 

procedure sc. selected; 

procedure sc. a I I ; 

procedure sc.attr i bute ; 

procedure sc.str.lit; 

procedure sc. fen. call; 

procedure sc.usec.obj; 
end scp.expr; 
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3.2.2. 510. 6 £lafl2L2ti2H ZqAsl* - None 



3.2.2.510.7 Saaaaiss. aaia iiiusiuias* - None 



3.2.2.511 S,Jii!P.£aS£,a!B« - sc. at t r.ca I I 



3.2.2.511.1 Eur.aase.. - Perform statement checking on a node of type 
'attri butecal I * . 



3.2.2.511.2 iiSyLmaiiaas. - None 



3.2.2.511.3 I tip. I emen^at j on language . - This Subprogram is written in Ada. 



3.2.2.511.4 ilisa &&&yX2iy.£i.X* - This subprogram is not used recursively. 



3.2.2.511.5 Ne.sJLSil &i&hJLa* - scp_expr 



3.2.2.511.6 Hfi^i QaaSQllaaaifia- - None 



3.2.2.511.7 laxaai Qeoendenc i e s. - None 



3.2.2.511.8 Iuaa£a2£a2 y I S f ft ! , ! l\Y • - Outside Package. 



3.2.2.511.9 Euncl Ion /Procedure . - This subprogram is a Procedure, 
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3.2.2. 51i. 10 rp.£mai P.a£A!B&lS££* - 

suotree? in comity pe • c.node.r e f > — reference to diana node 

to be checked 

context: in stmt.chk. contex t_r ecj — defines context in which 

this node appears 



3. 2. 2.511. 11 Sifl5z£lta£iS» - None 



3.2. 2. 511. 12 aiaflf.ii.tiiB* " 

if MAINTENANCE option A> then 

PRINT "at node"t node* "of type"* cd<n_type« get_node_ i d ( node ) ♦ 
"context *"f context> 

end if; 

if THIS node has oeen flagged as in error> then 

return; 

end if; 

CHECK as_exp..s with static context) 



3.2.2.5H.13 aiaaaaaiia aaisaaas Sanata-Laa** ~ None 
3.2.2.5H.14 ixaiaiaa ai Oaia Lfcr-ualuLas- - None 

3.2.2.512 Suaa r.aa£5lQl • ~ sc„aggregate 



3.2.2.512.1 PuLflaSS* " Perform statement checking on a node of type 
'aggregate ' • 



3.2.2.512.2 ISSaiSaiLiaaS* ~ None 
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3.2.2. 312.3 Isal£H*Q.iiii5Cl LaO.aua.aa* " This Subprogram is written in Ada 



3.2.2. 512.4 Ussst ££S,a£liy.S,l£. - This subprogram is used recursively. 



3.2.2. 512.5 fctesisa fcLLktlia* - scp_expr 



3.2.2.512.6 Ho.s.1 l2sae.Q(le.n,S,ias. - None 



3.2.2.512.7 Iatafti fiiaSQ£iaQ£iai« - None 



3.2.2. 512 .3 Siib.ar.aai.aa Vis i b i I , tty_. - Outside Package. 



3.2.2.512.9 £uaJLiiaa^f-L2Sadlur.a • - This subprogram is a Procedure, 



3.2.2.512.10 Earjsal ZatansLL&LS.* - 

subtree: in cdm^type • c.node^r e f ; — reference to diana node 

to be checked 

context: inout stmt_chk.context_rec; — defines context in 

which this node appears 



3.2.2.512.11 "iial£ = £f iaais. - None 



3.2.2.512.12 AiaaciiHa- - 

if MAINTENANCE option A> then 

PRINT "at node's node* "of type** cdm^type.get.node. id (node) » 
'•context context) 

end i f J 

if THIS node has been flagged as in error) then 

return ; 
end if; 
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nas.na.nes : * false; 

if RECORD aggregate) then 

FIND record type and di scr i m i nate> 
for EACH element of as_list> loop 
CHECK comp_assoc> 
if NOT a named association> then 
i f has.names then 

ERROR 17107> 
end i f ; 
end if; 

if THIS is a discriminant component> then 
ADO to dscrmt_aggr egate> 

if THIS component is for a variant part> then 

i f NOT stat i c> t hen 
error 

ena if; 
end if; 

INDICATE tnat this component is 'covered' (in record type)> 
end i f ; 
end iooos 

SET siri.constra i n t to- dscr mt-aggregate ) 
if ALL components not covered> then 

ERROR 17100> 
end if; 

elsif ARRAY aggregate) 

SET up coverage data structure for index type> 
for EACH element of as_list> loop 
CHECK COMP.ASSQO 
, if MORE than one component and choice expr not static> then 
ERROR moi> 
end if; 

MERGE choice value in coverage data structure> 
end loop; 

— find array Pounds 

if THERE is an 'others* choice> then 

GET bounds from context* if any> 
elsif NAMED notation used> then 

BOUNDS :» smallest index largest lndex> 
e I se 

80UN0S :» S'FIRST S'FIRST ♦ ( of compone n ts ) -l> 
end i f ; 

if INDEX range not covered) then 

ERROR 17102> 
end if; 



SEVERITY 
£QJ2£ U^xUlxt I£XI 

17101 E static expression required 
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17100 c values not provided for alt record conponents 

17102 £ values not provided for ail array components 

17107 £ named associations roust f ol I ow posi ti ona I associations 

3.2.2.512.14 tsamalss 2t CLaia S.tr.ucfcure.s. - Oiscrete range coverage data 
structure: 

See example for SC. VARIANT 



3*2. 2. 513 Su.t2o.£.o.a£aai« - sc_binary 



3 .2.2. 513.1 £ur.£Q.5.e.. - Perform statement checking on a node of type 
•binary*. 



3.2.2.513.2 4iSUfflft.LL2.CL5* ~ None 



3.2.2.513.3 IialSiasalaiiia L2.a3ua&£« - This Subprogram is written in Ada 



3.2.2. 313.4 !iiS£l SS.SLjlLiiy.aly.* "* This subprogram is used recursively. 



3.2.2.513.5 MS5l5Sl kli&iLLll*' ~" scp_exbr 



3 .2.2.5 13 .6 tlasi P.eo.e.n.ile.ns.i.e.s.. - None 



3.2.2.513.7 ianaai. asaaafiaaaias* - None 



3. 2 .2 .5 13. 8 SilSUCaaiKS Yili&iliil* - Outside Package. 
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3.2.2.513.9 ii.O.c.iiaO.Z.fi.LaSS.dtlAr.S,* " This subprogram is a Procedure. 



3.2.2.513.10 £a£jaal P.iir.ains.l&r.i • - 

subtree: in cdm.type. c.node.ref J — reference to diana 

node to be checked 

context: in stfnt.chk.context.recj — defines context in which 

this node appears 



3.2.2.513.11 UflSzStLaSU. " "one 



i. 2. 2. 513.12 AJ,ci2Lii!2a« - 

if MAINTENANCE option A> then 

PRINT "at node w » node» "of tyoe H » cd<»t_ty0e .ge t.node. i d < node J « 
"context context> 

end if; 

if THIS node has been flagged as in error> then 

return; 
end if; 

CHECK as.expl> 

CHECK as_exp2> 



3.2.2.513.13 iia2Q°.iii.£ SSS'SSa^SS fi£QA£aiSll» None 



3. 2. 2.513. 14 fcaamftias. al Qala Ufer.ufiiJir.ai- - None 



3.2.2.514 Iu]2fi.r.2.9Xa,itt« "* sc. member shp 



3.2.2.514.1 Pyxaase.. - Perform statement checking on a node of type 
•membership*. 
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3.2.2.514.2 A.iSU2aiia0.5» ~ None 



3.2.2. 514.3 IiaiS2S0.idi.ia0. Liaauaaa* ~ This Subprogram is written in Ada. 



3.2.2.514.4 !i£5.d. &a£!Ar.S.iY.aiy,» - This suijprogran is used recursively, 



3.2.2.514.5 NaaikSgl iiiihj.r|. - scp.expr 



3.2.2.514.6 Hail £sa&0.a'£a£i££ • *" None 



3.2.2.514.7 laciiai aaaaaa&aaias- - None 



3.2.2.514.8 liiaataataa ¥i£iaiiiiY.. - Outside Package 



3.2.2.514.9 £aaatiaa^££aaaa , U£a» ~ This subprogram is a Procedure. 



3.2.2.514.10 rjqr. g qf Parameter g. - 

suotree: in cdm_t ype. c_node-r e f 5 — reference to diana node 

to be checked 

context: in stmt_chk. contex t_rec;. — defines context in which 

this node appears 



3.2.2.514.11 UiSrSliaalS- - None 



3.2.2. 514.12 A.xaaLiiais» ~ 

if MAINTENANCE option A> then 

PRINT M at node's node* "of type's edm.t ype • ge t_node_ i d ( nod e ) * 
"context context> 
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t 

end if; 

if THIS node has oeen flagged as in error> then 

re turn ; 
end i f » 
CHECK as.exo> 
CHECK as_type_r ange> 



3.2.2.514.13 aiaaQA&iis *e.2aaaa.s Saaaxalaa* - None 



3 ,2. 2. 5 14 ,14 tiaSttiSS 21 Qaia Sl£il£tU££S* - None 



3.2.2.515 Ssiaar.aa£aiD • "* sc_tyoe_con v 



3.2.2.515.1 Eur.a0.5e.. - Perform statement checking on a node of type 
' tyoe^conver s i on • • 



3.2.2.5 15 .2 iiSUfflfliiaas. - None 



3.2.2. 515.3 ilSSlSaiaaialiSIl L3.aauaas» ~ This Subprogram is written in Ada 



3.2.2.515.4 Li£e,al %ac.ur.sj.v.ej.y;. *■ This subprogram is used recursively. 



3.2.2.515.5 Naaifid. HiihjLri, - scp.expr 



3.2.2.515.6 tiasi aaa£ail£n£ia5» - None 



3.2.2.515.7 iaiaai Qsaaaa'aaa.Us* - None 
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J.2.2.5t5.d £ 4 ik&£22C.aai iiliailiil* ~ Outside Package. 



3.2.2. 515.9 £siQS.ii2fl^££aSiil!lLS.» *" This subprogram is a Procedure. 



3.2.2.515.10 Fataal 2.a£ai£i££S* - 

subtrees in cdrn_type. c.„node_ref » — reference to diana node 

to De checked 

context: in stmt_chk. context.r ec» — defines context in which 

this node appears 



3.2.2.515.11 ~ None 



3.2.2.515.12 Alaaf.Xlhm. 



if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cdm - type.get_node.,.i d( node) » 
'•context » con text > 

end if; 

if THIS node has been flagged as in error> then 

return j 
end if; 

CHECK as.name) 
CHECK as_exp> 

if SM_EXP_TYPE is an array type> then 
if CONSTRAINED array, then 

CHECK that each element of the sm_exp - type has a matching 

component in the as_exp> 
else 

CHANGE sm_exp_type to •constrained • and copy bounds 
of as.exo array> 
end if; 
end if; 



3.2.2.515.13 ;uasaa&ti£ Sass&ass £«xi££a££d. - 

SEVERITY 

17103 E unmatched components in array type coversion 
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3.2.2.51:>.14 t2.a2a.ia5. 21 ilL US. tilliaa- - None 

3 .£.2. Dlb 5.y.!aaL2.aLain» " sc.qualified 



3.2.2.516.1 P-ULJiasa* - Perform statement checking on a node of type 
1 qua I i f i ed * • 



3.2.2.516. 2 ASSUffittiiaHS* - None 



3.2.2. 516.3 liBflilSaaaiaiiail LaG.3U3.2S* ~ This Subprogram is written in Ada. 



3.2.2.516.4 Usasl gsc.yir.sXve.lx* - This subprogram is used recursively. 



3.2.2.5 lb .5 Ussisa iULitULa* * sep_expr 



3.2.2. 516.6 tlflSt Qsaao.danc.ifis.. - None 



3.2.2.5 16 .7 I i £2 at Qe, ge r nd < e.nc je, s* ~~ None 



3.2.2.516.8 SufiaL22Laai iisiSiililY.' " Outside Package. 



3.2.2.516.9 EiiQc.iiizn.^JPLaiie.olur.e. - This subprogram is a Procedure* 



3.2.2.5 16. 10 Eaiaai SLaLaisaiais* — 

subtree: 'in cdm_t ype • c.node.r e f ; — reference to diana node 

to be checked 

context: in stmt_chk. con tex t_r ec» — defines context in which 

this node appears 
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3.2.2.51&. LI iiiil-£lia5.iS« - None 



3.2.2.516.12 A.J.cj2r.j,£i2j3. - 



if MAINTENANCE option A> then 

PRINT "at node"* node* H of type*N cdm^type.get.node. i d(node) » 
"context *"» context) 

end if; 

if THIS node has been flagged as in error) then 

return; 
end if; 

CHECK as.narae) 
CHECK as_exp> 



3.2.2.516.13 aiaanaiiie. isssaass usasiaisa* - None 



3.2.2.516.14 £x.aii»alS5. 2t Q.3.LsL Sir.USiur.3S' - None 



3.2.2.517 iiiSiacaacaai* *" s.c..al I ocator 



3.2.2.517.1 £lur.fil2SS» *" Perform statement checking on a node of type 
•all ocator * . 



3.2.2.517.2 A§ > Si ( imc;£J.2QS» — None 



3.2.2.517.3 IfflSJLfiiB&QJkaJLLilQ, LaQ.auaa'£« This Subprogram is written In Ada. 



3.2.2.517.4 lisaai S£5.U£liy.al^» • This subprogram is not used recursively. 
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J. 2. 2.517. 5 iiaalSii ~ scp.expr 



3.2.2.517.6 tiaSi, &£&£&&t n .£.L&&« *~ None 



3*2. 2 .517.7 lataaJi. Q£fl£QSlSUl£i£.2« - None 



3 • 2. 2. 517. a Suhttr.o.ar.22 Visio JJ, i fry . - Outside Package. 



3.2.2.517.9 Eu n .£li2Q.Z.f.£2£alULa • ~ This subprogram is a Procedure 



3.2. 2. 5 17 .10 E&rjsaj. Pac.asslsr.1* - 

suotree t in cdm_typ e .c_.node._r ef > — reference to diana 

node to be checked 

context : in stmt_chk.context_rec» — defines context in wn i ch 

this node appears 



3.2.2.517.11 S.ii£-£lf e.££s.. - None 



3.2.2.517.12 Aj.so.£i£hm. 



if MAINTENANCE option A> then 

PRINT H at node'S nooe» w of type 1 ** cdm_type • get_node_ i d < node ) » 
"context »'S context> 

end i f ; 

if THIS node has oeen flagged as in error) then 

re turn ; 
end if; 

CHECK as.nan»e> 

CHECK as.access.con str a i nt> 

if SM.„TYPE_$P EC denotes an unconstrained private* record or 
array type> then 
if CONSTRAINT not present) then 

ERROR 17104> 
en d if; 
end i f ; 



3-1059 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Co.uoiler Machine-Independent Section C5 Specification CS-CP-0059-C84 
1 November 1983 

if Sli_TYFF_SP EC denotes an unconstrained array> then 

if 4 .< R A Y is "ragged'^ then 
ERROR 17105> 

end if? 
end if; 



3.2.2. 517 .13 aiaaaasiia iiaisaa^s SsasLalasl* - 



SEVERITY 

17104 E constraint required for allocator 

17105 t illegal array structure 



3.2.2.517.14 iiasaias. 21 5.i£U£tUf.ai« - None 



3.2.2. 5 Id 2,y,aaJL2SLa01« - sc_slice 



3.2.2.518.1 LiLaaaa* - Perform statement cheeking on a node of type 
' s 1 1 ce • . 



3.2.2.518.2 fi.Siiiffifii.iaQS. - None 



3.2.2.516.3 laaiaaaQiaiiaa LaaauaaS* ~ This Subprogram is written in Ada 



3.2.2.518.4 USSSi SaiUXSiiaiX* - This subprogram is used recursively. 



3.2.2.518.5 NaSiuSO" - HiJ&LJl* ~ scp_expr 
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3.2.2.516.6 H'iil ££S.£Q.Sl! n .{Li&S« • None 



3. 2.2.5 13. 7 IaLaat iiSasa^aQS.ie.S • - None 



3.2.2.518.8 Su&aLaaLaS £i&±&ili£Y.« ~ Outside Package, 



3.2.2.513.9 EaaaliaQ^f.! a£&lUT.£ • - This subprogram is a Procedure. 



3.2.2.518.10 tfltJSiX £££.12 ~ 

suotree : in cdm..type«c - ,node - .ref ; — - reference to diana node to be 

checked 

context i tnout context. rec; — defines context in which this node 

appears 



3.2.2.513. 11 £j,ds-£X, iaais .. - None 



3.2.2.513.12 iiaaLiiaa. - 



if MAINTENANCE option A> then 

PRINT "at node's node* "of type** cdm_type.get - node_id(node) ♦ 
"context ***» context> 

end if; 

if THIS node has been flagged as in error) then 

return; 
end if; 

CHECK as.name) 

CHECK as_dscrt.range> 

SET sm_con str a i n t attribute to constraint created by slice> 



3 ,2. 2. 5 is. 13 aiaaaasiia Sassaaaa fiaaanaisa* - None 
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3.2.2. 5 Id. 14 s-ijaffiftiAS It <2aia Si£U£iU£ai* - None 



3. 2 .2. 519 £j±aa£a2£ilI2« - sc_.se I ect ed 



3.2.2.519.1 °gt£aasft« - Perform statement checking on a node of tyoe 
• sel ecteo • • 



3.2.2.519.2 £s.s.y.ma£iaaS« - None 

3.2.2.519.3 IialaaaaLaiiSQ Li.aauaaS« • This Subprogram is written in Ada. 



3.2. 2.519.4 Uiaa" &£aa£liy.ai.Y.« • This subprogram is used recursively. 



3.2.2. 519.3 _tesJLSa* xiilaia* - scp_expr 



3.2.2.519.6 Hasl Baaaaaaaaias* - None 



3.2.2.519.7 iataaiL Qsaaaiaaaias- - None 

3.2.2.519.8 £u,aa£,aar.asn iiSiailii^* • Outside Package. 

3.2.2.519.9 £yaaiiaa££l.aaaa'aLa« - This subprogram Is a Procedure. 

3.2.2.519.10 £auiai £.ar-aaala£S* - 

subtree 2 in cd.m_.typ e. c.node^ref » — reference to diana node to 

be checked 

context • inout context_rec» — • defines context in which this node 

appear s 
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3.2.2. a 19, 11 iiUarilUaii* - None 



3.2.2.519.12 ^laflLiiha. - 



if MAINTENANCE option A> then 

PRINT M at node w » node, "of type H » cdm_type.get_node_id(node) » 
"context *'S context> 

end i f ; 

if THIS node has been flagged as in error> then 

return; 
end if; 

CHECK as -B name> 



3.2.2.519.13 iiaaaaiiia "ssaasss fiaaanaisa* - None 



3.2.2.519.14 txafflUlSS, 2.1 0,1112. S.£f.U£lUr.£&* ** None 



3.2.2.520 iu.b.ft£o.ar.aai« - sc_all 



3.2.2.520.1 £,u£fl2Sa* ~ Perform statement checking on a node of type 
•all*. 



3.2.2.5 20 .2 ASSUJBfiliam* - None 



3.2.2.520.3 ImalSaiSQiaJtiflQ t-an guaoe. - This Subprogram is written in Ada. 



3.2.2.520.4 Uiaji £e.c.y.£SiY.aiY,. - This subprogram is not used recursively. 



3* 2.2. 520.5 ^sSiJSSt Hi^t n * scp_expr 
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3.2.2.52G.O Si22,i iiSaaa^efiSLiSS* None 



3.2.2.520.7 Id£a£l Qsasail3ifiaiS5« - None 



3.2.2.520.3 Siiaatflataffl VlSiailii** - Outside Package. 



J. 2.2.520.9 Euaaiiaa£££2i*£4U£SL» ~ This subprogram is a Procedure. 



3.2.2.520. 10 taiisal £aLaisal5r.s» ~ 

suotree : in cdm_type .c„.node_ref » — reference to diana node to 

be checked 

context : inout context_rec> — defines context in which this node 

appears 



3.2.2.520.11 lU£=£t!&£t£- - None 



3.2.2.520.12 uaatiiaifl. - 

if MAINTENANCE option A> then 

PRINT "at node's nodet "of type"* cdm^type. get.node. i d(node) » 
"context = M i contexts 

end if; 

if' THIS node has been flagged as in error> then 

return* 
end if; 

CHECK as.name> 
CHECK as_des i gnator> 



3.2.2.520.13 Qiaaaasiia "asiaaai ££aar.2i£d- - None 
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3.2. 2. 520.14 jiasiiiSSL ai Q>3Lkl Sl£U£lU££S« " None 



3.2.2.521 £y.aa£a2£aai» ~ sc.attribute 



3.2.2.521.1 £u£fiiisa« *" Perforn statement checking on a node of type 
'attribute*. 



3.2.2.521.2 ftssymafc 1,0.0$. - None 



3.2.2.521.3 laalSflDtSQialiaa LaaauaSLS" • This Subprogram is written in Ada 



3.2.2.521.4 UiSSL &£&U£2.Ly.&ly.* - This subprogram is used recursively. 



3.2.2.521.5 Ngsj^gd. iiiiili. 0 .* scp_expr 



3.2.2. 521.b HfaSJ* Qsa&na'&QaiSl* — None 



3.2.2.521.7 Iaxaai &Sa£a<teaa.U£ • - None 



3. 2.2.521.8 SnaaLaStaa ViSiailllY.- - Outside Package. 



3.2.2.521.9 £uaaiia n .^Ji£a£aa , Vl£.a« " This subprogram is a Procedure. 



3.2.2.521.10 Eaoal P-aLassisLs* - 

suotree : in cdm_type.c_node-ref ; — reference to diana node to 

be checked 

context : inout context„rec; — defines context in which this 

node appears 
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3. 2. 2.521.11 iiaSrSlliaii* ~ None 



3.2. 2. 521 .12 Aj.saf.ilaO!* - 



if MAINTENANCE option A> then 

PRINT M at node"* node* "of type"» cdm_type.get_node -( id(node) » 
"context »**» con text > 

end if; 

if THIS node has been flagged as in error> then 

return; 
end if; 

CHECK as - nan»e> 
CHECK as_id> 



3*2.2.521.13 iLUaaaaiic. Sasaaass Ssasialaa* - None 



3.2.2.521.14 fe&aaaias. al 2a£a Situaiuias* - None 



3.2.2.522 Su,ho.ro.ar,ain. - sc.str^lit 



3.2.2.522.1 Pu£aos.e.. —Perform statement checking on a node of type 
•string It ter a I ' • 



3.2. 2 .522.2 ISiUiEaJLiaQS* ~ None 



3.2.2.522.3 Iaai£!Jl£alaii.a(l Liaauaaa* • This Subprogram is written in Ada. 



3.2.2.522.4 U§.e.a i£&£y.£ajL££i£« This s-ubprogram is not used recursively. 
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3.2.2.522.5. iiiiijii fiLLiCLiQ.* - scp.expr 



3 .2. 2 .522 .6 Hail U&&£0.d e .0,£.i£&* ** None 



3.2.2.522.7 iacaai Sisaami£asJ.fts« - None 



3.2.2. 522.3 SuflfliaStaiB ZiiiSLililX • - Outside Package 



3.2.2.522.9 ELUGSLtiaQ^f.I.aSS.fi'yXS. • " This subprogram is a Procedure. 



3.2.2. 522.10 Faijaj, p ar.asaisi.1 • - 

subtree s in com - type«c^node - .ref J — reference to diana node to be 

checked 

context : inout cont ext.rec; — defines context in which this node 

appears 



3.2.2. 522, 11 iia£:£l!e.£i£. - None 



3.2.2.522.12 Aiafl£iitia« - 



if MAINTENANCE option A> then 

PRINT "at node"» node, "of type"? cdm_type.get_node.,id<node) ♦ 
"context »*» context> 

end if; 

if THIS node has oeen flagged as in error> then 

return; 
end i f ; 

CREATE Diana nodes of form: 

SET sm_constr ai nt to these nodes> 
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3.2.2.522.13 iiaaaaiiis iisasisas &fia&£aisd* ~ 

3.2.2.522.14 £samalS3. 2l fetta Ut£U£lii£SS* " None 
3.2.2.523 ' 2ufefi££££ajie - sc.fcn.call 



3.2.2.523.1 £u£fiftss« - Perform statement checking on a node of type 
* f unct i on_ca II'. 



3.2.2.523.2 &&£u.m,p,£io.xi£e - None 



3.2.2.523.3 laalSfflSHiLliifiQ LsLHHU&SiSi* ~ This Subprogram is written in Ada. 



3.2.2. 523.4 \ls,SLSL. frecm : si, ve \ y. - This subprogram is used recursively. 



3.2.2.523.5 aU&BJLIl* ~ scp.expr 



3.2«2.523.6 tlflsi, Qepen cfe nc jes,. - None 



3.2. 2.523.7 Ii£aS.l QS2Sa£SD,£i.££ • ~ None 



3.2.2.523.8 SuftPtograi y.is.,lfr 1, t \,%Y • ~ Outside Package. 



3. 2. 2*523.9 f^unct i on, /.Pro endure . - This subprogram is a Procedure. 
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i.2. 2. 523.10 raLSil 2.aLa2I2£.£I.£» ~ 

subtree : in cdm..tyDe.c_node_ref i — reference to diana node to 

be checked 

context i in stmt_chk.context_rec; — defines context in which this 

node appears 



3. 2*2. 523. 11 iidar£tia£iS« - None 



3.2.2.523.12 AJ.*ac.r,j.ihfa. 



if MAINTENANCE option A> then 

PRINT w at node w » node* "of type 1 ** cdm_type.get_node..id(node) ♦ 
"context *'% con text> 

end if; 

if THIS node has been flagged as in error> then 

return! 
end if; 

if THIS function is generic) then 

ERROR 17106> 
end if; 

CHECK as^param - assoc.s> 

— compute elaboration order information 

ADD (containing.procedure.naiBe calls as. name) to ca I l_r e I at i on list) 
if THIS is an elaboration context) then 

ADO as. name to e taborat i on_cal I list> 
end i f ; 



3.2.2.523.13 2j.22Q2S.liS. flaJUaSSLS £e,ne.£alSd ' 
SEVERITY 

17106 E generic function called 
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3.2.2.323.14 iia!DttJ.SS. 2t ItLUSiULSi- - None 



3.2. 2.524 5Luaa£a2L2!!l» - sc_indexed 



3,2. 2. 524.1 PiLaaS.£« ■ Perfom statement checking on a node of type 'indexed* 



3.2-2.524.2 liiUffifl£iaai» " None 



3.2.2.524.3 Ia2j.S2aaJLa.iifl£l LlCLSiiaai** ~ This subprogram is written in Ada 



3.2.2.524. 4 Liiasi E££!i£SiiaiX» - This subprogram is used recursively, 



3.2.2. 524.5 ^SSiSfl. jlii.hj.n. - scp.expr 



3. 2.2. 524.6 HaiJt- QSftSQPlftOS, tSS* ~ None 



3.2.2.524.7 lariat D.e.asaa' aaai£l • *" None 



3.2.2.524.3 SuaataSLaoi ^iliailily.* ~ Within Package Only. 



3.2.2.524.9 EaQaiiaa££f.aa&&!JLL£« - This subprogram is a Procedure. 



3.2.2.524.10 Eaoal Ear.ai2ai.a££* - 

subtree s in cdm_type.c_node_ref » — reference to diana node 

to be checked 

context : inout context-rec; — defines context in which this 

node appears 
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3.2. 2. 524.il ii^siiiiaaiS* - None 



3.2.2. 524 • 12 AJ,.22£j.iii213« - 

if MAINTENANCE option A> then 

PRINT "at node"» node* "of type's cdm.type .get.node. i d ( node ) » 
"context *"» context> 

end i f i 

if THIS node has already oeen flagged as in error> then 

return ; 
end i f ; 

CHECK as.name> 
CHECK as_exp_s> 



3.2.2. 524. 13 iiaanastia aaiiaa&s fisQ&£aisst* - *one 



3.2. 2. 524. 14 SsasaiSS. 21 123ia Sif.]i£iy£SS» - None 



3.2.2.525 SufiLaLafiLafl* sc.used^obj 



3.2.2.525.1 PiiLa.2SS,« ~ Perform statement' checking on a node of type 
' used.ob jec t_ i d ' • 



3.2.2. 525 « 2 *S.Sli!DfiJLL2i23« - None 



3.2.2. 525.3 l32JLS2£ll£aJLiSQ La!l£U3a£« - This subprogram is written in Ada. 



3.2.2.525.4 UiSi 8££ULliY.Si.Y.» ~ This subprogram is not used recursively. 
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3. 2.2. 525. 5 *i£££.S£i 2»ii£liQ» ~ scp.exor 



3.2.2.525.6 Hfili 2S2S0.ilS!l£iSS« ~ None 



3.2.2.525.7 Ia£2Sl QsasadS0.Si.SS* - None 



3.2.2.525.3 iiiSfltaaiLSffi • - Within Package Only, 



3. 2. 2.525.9 Fungt |.<2QlP r .o, SStimC^ • ~ This subprogram is a Procedure. 



3.2.2.525.10 Lsf-ISSl P-aLSSSlSLS* " 

suotree : in cdm_type .c^node^r ef » — • reference to diana node to be 

checked 

context : in out cont ext.rec » — defines context in which this node appears 



3.2.2.525.11 Si.a£r£ItS££S« " None 



3.2.2.525.12 &isa£iiaa« - 

if THIS node has already been flagged as in error> then 

return; 
end i f ; 

INVOKE: cross-reference recorder> 



3.2.2.525.13 s2ia2Q2S.£i£ JlSSSaaSS SsaSiialLSa* - None 



3.2.2.525.14 fcx.amD.lS5. 2£ CUlS Si£u.££<i£aS« - None 



3-1072 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Co.no iter lach ine-Indep-endent Section C5 Soec i f ica t i on CR-CP-0059-C84 

1 Novenoer 1983 



3.2.2.526 iaSLK^aS^* ~ scp.stmt 



3. 2.2.526.1 Py£22iS.« " Implement the statement checking function for nodes 
involved with statements* 



3. 2. 2. 526. 2 Mua&sr. SuaaLaaraais* - 2* 



3.2.2.526.3 aaasaasaaisi aa Qinai £aals33£s Iar. Saas« - cdm.type, stmtcnk 



3.2.2. 52b. 4 Ag.a±£iaQal QaaS.D.a'saajL.SS iar. Sail* • cdtn.as* sc. class* diagnose 



3.2.2. 526. 5 Paa^ss Sasai.tiaaU.an- - 



package scp.stmt is 

procedure sc.s tmt.s ; 
procedure 
procedure 
pr ocedure 
procedure 
procedure 
procedure 



sc.iaoeied: 
sc.ass i gn; 

sc.i f ; 
sc.cond.c 1 
sc. case ; 
sc. named. stm; 



procedure sc. loop; 
procedure sc. for. rev; 
procedure sc.olock; 
procedure sc. exit; 
procedure sc. return; 
procedure sc.entry.ca I ; 
procedure sc. accept; 
procedure s„c.delay; 
procedure sc.select; 
procedure sc.cond.entr ; 
procedure sc.t i med.en t ; 
procedure sc. abort; 
procedure sc. raise* 
procedure sc. code; 
procedure sc. goto; 
procedure sc.proc.cal I » 
procedure sc.termi nate; 
end scp-stmt; 
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3. 2 .2. 52b. b fLiaaaLstliaa Sai£« • *'one 



3 .2. 2. 5 2 6. 7 saaisalsa ai SJL£J2aIar.fi£- - None 



3.2.2.527 SUlSttiaaLaa- - sc.„stm_s 



3.2.2.527.1 £iiLaas"£« " Perform statement checking on a node of type 
•stiiis*. 



3.2.2. 52 7. 2 A££yj&aii2a.S« None 



3.2.2.527.3 XaalSSSQiaiiaa L3Laau&a&* ~ This Subprogram is written in Ada. 



3.2.2.527.4 Usaa E£&Uf.2iy.S.i£* *" This subprogram is used recursively. 



3. 2.2. 527.5 iiiinj.Il. - scp_stmt 



3.2.2.527.6 HaSJt fiteaaadaQaiSS' ~ None 



3.2.2.527.7 lacaai Qaaaaaaaaiaa* - None 



3.2.2.527.3 iy.aa£aar.a!B Visj.b.jJ.i£*. - Outside Package. 



3.2.2.527. 9 EyaaiiaaZJiLaaaa' UX.S • ~ This subprogram is a Procedure. 
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3«2«2»527.10 i^JLHii 2.aL22i£i.i£3,» ~ 

suotree : in cdm^t^o e .c^node^ref ; — reference diana node 

to be checked 

context s in out s tmtchk«context_rec; — - defines context 

in ah i ch this 
node appears 



3«2«2«527«11 5.j.a.e.::£L/-&£JL£« ** The statement sequence list data structure 
is modified: new sequence list* 



3,2. 2. 527.12 &J.S2£±1!2!S» - 

if MAINTENANCE option A> then 

PRINT "at node'S nodet "of type"* cdm.type • ge t_node_ i d ( node > » 
"context *"> context> 

end if» 

if THIS node has already been flagged as in error) then 

return; 
end if; 

CREATE new element of statement sequence list> 

—-"Co mo I e te info* for statement sequence data structure 

if FIRST statement is a code stmt> then 

SET has code flag for this sequence) 
else 

SET has_non_code flag for this sequence) 
end if; 

ifIN a select statement) then 

UPDATE accepts* delays* terminates for select statements 
if first statement is accepttdelay or terminate) 
end if; 

for EACH element of as_Mst)loop 

CHECK STM> 
end loop; 

if THIS sequence has "unclaimed" goto statements> then 

ERROR 17200 for each goto> 
end i f ; 

i f THIS is a function body> then 

ifNO return stmt>then 
ERROR 17201) 

end if; 
end i f ; 

PROPAGATE "unchecked goto's and return^stmt flags) 
DESTROY list for this seq> 
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i.2.2.527.13 iiaaaailifi Sss&aa-as £sqs£2£ss;* - 

SEVERITY 

17200 £ invalid 'goto* destination 

17201 £ no return statement in function body 



3.2.2.527.14 £2U(noJ.£i gj. fiala SlLUSLlULlS* - ^one 



3.2.2. 528 SuJl2£9.2£a2!« " sc_labeled 



3.2.2.528.1 EiLaaiS* - Perform statement .checking on a node of type 
' I abe I ed' • 



3.2.2. 528 .2 &s.s.yj2aiiao,S» ~ None 



3.2.2. 528.3 laalgfneatali qq Language. - This Subprogram is written in Ada 



3.2.2.528. * ys.ea. Re, r c. 141:5 j.v.e. |[,y . - This subprogram is not used recursively. 



3.2.2.528.5 Ne.s.i.gg' jUlkil!* - scp.stmt 



3.2.2.528 .6 HflSl 2saSQ.ilSHS.iSS.* ~ None 



3.2.2.523.7 Ia£asi fisaSQ.dSasJ.S5- ~ None 
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3.2.2. D23.8 SiaaLaaLSS I±£iaiJ.i&}L« " Outside Package. 



3. 2.2. 528.9 Eunq t i on/^r o ced ur e, . - This subprogram is a Procedure. 



3.2.2.528.10 £2£ia! P r ar amqt er s . - 

suotree : in cdm_tyoe • c.node.ref » — reference to diana 

to be checked 

context : in stflit_chk.context._rec; — defined context in 

which this node 
appears 



3.2.2.523.11 SJLdjt-£,f_f.e.c.£.s,. - Label information is added to the 
I i st„o f ..statement s.sequences data structure. 



3. 2.2. 528.12 ^iaa£,ilil!!l« - 

if MAINTENANCE option A> then 

PRINT "at node'S node* "of type"* cdm_type«get_node.. i d< node) t 
"context *•% context> 

end if; 

if THIS node has already been flagged as in error> then 

return; 
end i f ; 

AOO as-id to list of labels for the current sequence> 
CHECK as_stm> 



3.2.2.528.13 aiaaaaatia &sss.aaas Ssasxaisd* - None 



3.2.2.528.14 saaaaias at daia Ii£.i-£i.U£ai- - None 



3.2.2.529 5,ii2a£a2LaE» ~ sc_asstgn 
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3.2.2.529.1 •LiiC.aa&S.* "* Perform statement checking on a node of type 
1 ass i gn * . 



3.2.2.529.2 AsSilfflfiiiarLS. - None 



3.2.2.529.3 IaaJ.S!BSaiaiJLaa LaaSiiaaS* This Subprogram is written in Ada. 



3.2.2.529.4 Ui^fl" &e.c.a r .£iy.£iY.« "* This subprogram is not used recursively. 



3.2.2.529.5 He.s.ijsa' iiiaia* • scp.stmt 



3.2.2.529.6 Uaii QsasaiteaaiSS* - None 



3.2.2.529.7 lajiafii S2Sfi5ail£QaiS5« ~ None 



3.2.2.529.8 £j,2a£a2£affl V I s i b i I l%y* - Outs ide Package. 



3.2.2.529.9 Ey > nc.£iaa££r.a c .£4U£a« ** This subprogram is a Procedure. 



3.2.2.529.10 £a£mal Eaxasaisxs* - 



suotree : in cd(n_type. c_node_ref ; reference to diana 

node to be checked 

context : in stmt.chK.context^recj — defines context 

in which this node 
appears 
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3. 2 .2 .529. 11 iiil£z£.Li*cJ*.S.« - None 



3.2 .2. 529 «, L2 Aj.aflr.iiQm,. - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cdm_type . get_node_ i d ( node ) > 
"context *"♦ context> 

end if; 

if THIS noae has already been flaggea as in error> then 

return; 
end i f ; 

CHECK as_na*e> 
CHECK as_exp> 

if TAS GET of assignment is illegal*> then 

ERROR 17202> 
end if; 

if ARRAY ass i anment s> then 

if of components does not match> then 
ERROR 17203> 

end if; 
end if; 



* constant* task* in parameter* loop parm* discriminant* I i m_pr i va te 
type* record with lim_private type as a component (except in 
correso. body). 



3.2.2.529.13 iiasQo.s.iis, Ssnaass SaaaLaisd- - 

SEVERITY 

L7202 E invalid assignment target 

17203 E components do not match in array assignment. 



3.2. 2. 529. 14 iX.ajaaJ.e.s. at £311 SJfcLU£lUf.££- - None 



3.2.2.530 Suiiar.2ar.anj" ~ sc_if 
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3.2.2.530.1 Z±LSL2S.1» - p erfofTi statement checking on a node of tyae 'if, 

3 • 2.2 .530.2 i£ SUE fiiifi JX£« ™ None 

3.2.2. 530.3 Iiaifi 2 SLaiaLLSCl Language, . - This Subprogram is written in Aria. 

3.2.2.530.4 Uiaa Saaii£Sil2.1^« ~ This subprogram is used recursively. 

3.2.2.530.5 iiSSJtsa &i£J2±El« " scp„strot 



3.2.2.530.6 Hg,s£ ■QflBftfldftQftlftS*- *" None 



3.2.2.530.7 liLSSi Qsa£Qii&0,£.i£S« None 



3.2.2.530.3 Sii2ar.22La(S V i 5 », o » t i , % v,» - Outside Package. 



3.2.2.530.9 £uQaiiaQ££La5§.lU.r.£» "* Tnis subprogram is a Procedure, 



3 .2.2. 530. 10 Eauaai P-aLasaisr-s* - 

subtree : in cd{n - ,type.c.„node^ ( ref ; — reference to diana 

to be checked 

context : in s tmt_chk • con t ext„r ec J — - defines context 

i n ah i ch th i s node 
appear s 
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3. 2,2. 53 0*11 S,ist£=£ttSLliS» - None 



3.2.2.530.12 Aiaaciiinn* - 

if MAINTENANCE option A> then 

PRINT "at node"» nodet H of type"* cdm_type.get_.node., i d ( node ) * 
••context **% context> 

end i f J 

if THIS node has already been flagged as In error> then 

return: 
end ifr 

for EACH element of as„ I i s t> I pop 

CHECK cond_clause> 
end loop; 



3.2.2. 530.13 2i&2a2S.£i£ tiSSiaaSS S£!l£La££d« - None 

3.2.2.530.14 iia.m&le.s, at lttU£iULa£« - None 



3.2.2.531 £u£ar.aa£3,!a« ~° sc.cond^cl 



3.2.2.531.1 ^ULaaSS,* "* Perform statement checking on a node of tyoe 
• cond.c I ause ' • 



3 .2. 2. 531.2 ^.HUiaiiaili- "* None 



3.2.2.531.3 laalSiaSfliaiiflQ ~ This Subprogram is written in Ada. 



3.2.2.531.4 USLSa &£ c .liLSi.y.S.i.£» ** This subprogram is used recursively. 
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3.2.2.531.5 iiSSUS siilkifi* ~ scp.stmt 



3.2.2. 531.6 H2Si iiSaSO&Saai&S* "* None 



3.2.2. 531.7 Ia£££i yt£P.saifiHSLiSi« " None 



3.2.2.531.3 IiiSa£22£.aa V i.% l^l * HY« " Outside Package. 



3.2.2.531.9 £un£ii20.££L°.5ailJJLLa« ~ This suborogram Is a Procedure. 



3.2.2.531.10 Earjaai . £.aL3ffiftta£l« - 

suotree s in cdm.type •c^.node.ref ; — reference to diana 

node to be checked 
context : in s trot_chk .con te xt^rec J — defines context in wnicn 

this node appears 



3.2.2.531.11 ii9:e.-£X.tac.is.. - None 



3.2.2.531.12 Atisatiltim* - 

if MAINTENANCE option A> then 

PRINT "at node*** node* "of type"* cdm_type.get„,.node_ id (node) ♦ 
"context »"» context) 

end if; 

if THIS node has already been flagged as in error) then 
return ; * 
end if > 

CHECK as„exp_vo t d> 
CHECK as_s tm~s> 
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3 .2.2. 531. i3 iiaao.2s.iic. ^asiaaai £so.s,£ai*d« - None 
3.2.2,331*14 tiaaaiaa at lJLtuc.kur.as* - None 

3.2.2.532 SuHft£a2Laa« ~ s crease 



3.2.2.532.1 PuLaaSS* ~ Perform statement checKirig for a node of type 
• case * • 



3.2.2. 532. 2 *S2,UffiaiiaQS» ~ None 



3.2.2.532.3 laaiSfltaQiaiiaQ. LanauaaS* ~ This Subprogram is written in Ada. 



3 • 2. 2. 532.4 Uiast Sfi.au.Liiiai.Y.* " This subprogram is used recursively. 



3.2.2.532.5 Nested HifctlLQ* - scp_stmt 



3.2.2.532.6 tiaii Q.12.2. None 



3 .2.2. 53 2.7 Iaf.SULl £££2QSi£!2£.i££« — None 



3-2.2.532.8 iuaa.£aatam ULsXtLLLUX.* - Outside Package, 



3.2.2.532.9 PanaiiaO.£P-Laas.SlU£2.« ~ This subprogram is a Procedure. 
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3.2.2. 532.10 £a£2dl £.af.&ffi ~ 

suotree : in cdm.type . c.node.r ef » — reference to diana 

node to be checked 
context: in context.recj — defines context in which this node 

appears 



3.2.2.532.11 iiia.s-£|.t asii. - None 



3.2.2.532.12 AJ.ao. L .Uhf. - 

if NODE already marked as in error) then 

return; 
end if; 
CHECK as.exp) 

if NOT a discrete type> then 

ERROR 17204) 
end if; 

INITIALIZE discrete range coverage data structure) 
for EACH element of as_al ternat i ve_s)l oop 

if OTHERS has appeared) then 
ERROR 17205) 

ena if; 

for EACH eleuent of as_cho i ce.s> I oop 

if CHOICE expression is not static) then 
ERROR 17207) 
end if; 

INCLUDE this choice in coverage data structure) 
if THERE is duplicate coverage) then 

ERROR 17208) 
end if; 
ena loop; 
end loop; 

if OISCRETE range is not entireley covered) then 

ERROR 17209) 
end if; 



3.2.2. 532.13 £.U2Q0.s.£ic. <22i£22£i £S<2&£a££4. 



SEVERITY 



17204 



E 



non^discrete type in case expression 



17207 



£ 



non.static choice expression 
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17203 c duplicate choice values in case statement 

17205 £ 'others* choice misplaces 

17209 t discrete range not covered 



3.2.2.532.14 iiam&l£i al iSi* LL£U£ll2£«£< 
Oiscrete range coverage data structure: 
See example for SC. VARIANT. 



3.2.2.533 £u*L££.fl2.La!H» " sc^.named.st m 



3.2.2.533.1 PjALaaiS,' - Perforn statement checking on a node of tyoe 
• named_s tm* • 



3.2.2. 533.2 As.£u„mo.£±an.s.. - None 



3.2.2.533.3 Im.fliaSD&Qla&ifiQ. - This Subprogram is written in Ada 



3.2.2. 533. A Uae.0. EaSLU£iiy.£iy.« "* This subprogram is used recursively. 



3.2.2. 533.5 liltliU* r scp.stmt 



3.2.2. 533.6 tiaii. ^£2.S.Q£i£ n .£.i&S.» " None 



3.2.2.533.7 LsLL9l§.L Qeoendenc tes. - None 
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i.2.2.533.d iiiJ2fi£ a^Laiill ii£iaiiiJL.y.« *" Cuts i d e P ac ka ge . 



3.2.2.533.9 Fu^st iflfll.P^.oc^Hf.e » - This subprogram is a Procedure. 



3.2.2.533.10 £2£aai PaLaaalar-s* - 



suo tree 



in cdm_type •c - node - r at J - 



reference to diana 
node to be checked 
defines context 
in which this node 
appear s 



context 



in stmt.chk.context^rec; 



3. 2- 2. 533.11 ii^S-ill 2.215 « - None 



3.2.2.53 3.12 £1.2fi£.j.ihm,. ~ 



if (MAINTENANCE option A> then 

PRINT "at node M » node* "of type"* 
"context »"* context> 



cdm^type.get.node.idCnode) » 



eno if; 

if THIS node has already been flagged as in error> then 

return J 
end i f i 
CHSCK as_stm> 



3.2.2.533.13 aiaaaaalia ^s.s.aaS5 £sa£.T.a£&d- - None 



3.2.2.533.14 £x.amalas. at Bala IfcLUfiiiiiLSS- - None 



3.2.2.534 iuaanaaLaa* ~ sc_ioop 



3.2.2.534.1 Pj,r.aa5a« "* Perform statement checking on a node of type 
' I oop* • 
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3 • 2. 2 . 534.2 iS.5.UE£ii2Il.£» " None 



3.2.2.534.3 l2al52£n£aiiaQ La&Sy&aa* • This Subprogram is Written in Ada 



3.2.2.534.4 Uiast &«,c.U££iy,aJ.y.. - This subprogram is used recursively. 



3.2.2.534.5 fclastsa iiltlj.Il* *" scp.stmt 



3.2.2.534.0 Nasi £LS2!£Ul&2!iiaS» " None 



3.2.2.534.7 Xa£aai QsaSHdaasi£.S« - None 



3.2. 2. 534. a Saaar.a2£aa liliaULJLLl* - Outside Package. 



3.2.2.534.9 £uQS,ii2Q^££25£fl , Hta« - This subprogram is a Procedure. 



3.2.2.534.10 Faisal P.a£asa£a£i • - 

subtree : in cdm_type .c.node^r ef » — reference to diana 

node to be checked 

context s in stmt.chk • con text_rec i defines context in 

which this node 
appears 



3.2.2.534.11 Sio.a = £liaaii» - None 
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3.2.2.534.12 Aiaaf.iia<2« - 

if MAINTENANCE option A> then 

PAINT '"at node"» node* "of type*** cdrn_type.get_node_ f d(node ) ♦ 
"context *"» context> 

ena if# 

if THIS node has already been flagged as in error> then 

return J 
end if; 

CHECK as_i terat i on> 
CHECK as stm.s> 



3.2.2.534.13 aiaaaaslis. Jlssaaaas Ssasiaisa- - None 



3.2.2.534.14 taaaalli SLl £Uia 1U.U£&U££&« - None 



3.2.2.535 SkkaLflStaia- - sc_for_rev 



3.2.2. 535.1 £ji.£aa5.S,» ~ Perform statement checking on a node of type 'for* 
or 'reverse*. 



3.2.2.535.2 A£su2&£j.2n.$. - None 



3.2.2. 535.3 laaiSaSQialiaQ Latiauaas* " This Subprogram is written in Ada. 



3.2.2.535.4 Uisa" Se.£y.£iiy,e.J.£. - This subprogram is not used recursively, 



3.2.2.535.5 NSSlSfl" QiZtLLQ.* - scp-stmt 



3.2.2.535.6 Hasi, QsaSQiJe.naj.e.2., *" None 
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3.2. 2. 535. 7 !i5.k£Q3SI!£L5i« *" None 



3.2.2.535.8 flea 21.3,1 ¥ isiaili.lv . - Outside Package. 



3.2.2.535.9 £a2£iiflQ££ia£!*iiJi£&« " This subprogram is a Procedure. 



3. 2. 2. 535. 10 £fl£.mai SacaissiAts. - 

subtree s in cdm.type .c.node.r ef ; — reference to diana 

to be checked 

context J in stmt.chk.context^rec; — defines context in 

which this node appears 



3.2.2.535.11 SiOSr£li4£i5- - None 



3.2.2.535.12 AlaatiifclD- - 

if MAINTENANCE option A> then 

PRINT '*at node'** node* "of type"» cdm.„type.get_node_id(node} » 
"context context> 

end i f I 

if THIS node has already been flagged as in error> then 

return; 
end if! 

CHECK as. dscr t. range with s tat i c_reau i r ed C0NTEXT> 
if LOOP parameter not of a discrete type> then 

ERROR 17210> 
end if; 



3.2.2.535.13 2iaaQ2S.£.ifi «g.s.aaae,5 £«a£X.2i£il« ~ 
SEVERITY 

IE*I 

17210 £ non_discrete type for loop parameter 
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3.2.2.535.14 iismaiss 2JI 2. a 1 2. iJJLy£ t,ii£ as.. - None 



3 .2. 2. 336 «Liiaa£aa£2i2» ~ sc_olock 



3.2.2.536.1 Pii£a2S£» " Perform statement checking on a node of type 
•block* • 



3.2.2. 536.2 AS.iU!Eaii20.S • " None 



3.2.2.536.3 Iial£i2aa£aii3a LaQ.2Uaa£» ~ This Subprogram is written in Ada. 



3.2.2. 536. <t Us.sa &£&U£li.l2JLx« *~ This subprogram is used recursively. 



3.2.2.536.5 NSilSfll btilaia* ~ scp_stmt 



3.2.2.536.6 ^asl Uaasadaaaiai* - None 



3. 2.2 .536 .7 ia.f.ssi liaaaafiaaaias • ~ None 



3.2.2. 536.3 5u.a2£a2£a2l liaiajJLi£X • ~ Outside Package, 



3.2.2. 536.9 £:aaa£iaa£££2aa4U£S • ~ This subprogram i s a Procedure. 



3.2.2.536.10 EaLaal P. aLaiaaia£a • - 

subtree : in cdm.type .c.node^r ef ; — reference to diana 

node to be checked 
context : in stmt.chk .context^rec; -— defines context in 

which this node appears 
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3.2. 2.33 0. LI iiaSziliSS-iS* * None 



3.2.2. 536.12 &laar.i£iUB. - 

if MAINTENANCE option A> then 

PRINT "at node w » node» "of type*% cdm^type • get.node. i d ( node ) » 
"context context> 

end if J 

if THIS node has already been flagged as in error) then 

return ; 
end if; 

CHECK as_item_s> 

CHECK as.stm.s) 

CHECK as_a I ternat i ve_s> 



3.2.2.536.13 aiiaQflsii£ ilaiiiaas. £e.Qe.r.3ie.d.. - None 



3. 2. 2. 536. 14 txaafllSl 2L aaiS li£U£i.U£SS- - None 



3.2.2.537 £y,b.a£.a2f.aiB« — sc_exit 



3.2.2.537.1 EunaaiS,* - Perform statement checking on a node of type 
•exit*. 



3.2. 2. 537.2 4S.S.MS£i,i2QS» " None 



3.2. 2.537.3 iaalSSaSQlaiiaQ. -kanaiiaaS* "" This Subprogram is written in Ada. 



3.2.2.537.4 \±g&SL BiaU£.£iY.aJLY.» "* This subprogram is not used recursively. 
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3.2.2.537.5 iilSlsa. jiltiiQ.. ™ scp.st.nt 



3.2.2.537.6 a2SI asaaQaaaSLUS* - None 



3.2.2.537.7 Ia£2Sl QsaSQiiaiiaiai- ~ None 



3.2.2.537.6 Suaataacafll liiiUlliil* - Outside Package. 



3.2.2.537.9 2l:ua£jLi2a££r»2£aa^UL£ • • This subprogram is a Procedure. 



3 ♦2.2.53 7.10 £.2£.aal ZsLL3kHL3.LSl.SL • - 

subtree : in cdm.type .c.node.ref » — reference to diana 

node to be checked 

context : in s tmt.chk .con text.ree J — defines context 

in wh ich this node 
appears 



3.2.2.537.11 SiaazfLltaSLLi* -None 



3.2.2.537.12 AiaatiiUffl, - 

if MAINTENANCE option A> then 

PAINT "at node"* node* "of type"* cdm.type • get_node_ i d ( node ) » 
"context -'* » contexts 

end if; 

if THIS node has already been flagged as in error) then 

return; 
end if; 

CHECK as.exp_.void> 

if AS.NAME.VOIO is void> then 

if NOT in a loop sequence of statements) then 
ERROR 17211> 

end if; 
end if; 
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j. 2. 2.537. 13 iiasaaitia rasiaass £*ne.r.a££d. - 

SEVERITY 
££££ XxdxZxixt I£*I 

17211 E •exit' must be from a loop 



3.2.2.537.14 Jisaaaiai fit Bail- Slr.U££Jif.2i« - None 



3.2.2.533 Sii.iiaE22.L22l* ~ sc_return 



3.2.2.536.1 f.Uf.aa££.« - Perform statement checking on a node of type 
* return • • 



3.2.2.538.2 AaiUSaiiaQS* *" None 



3.2.2.538.3 Il2lSf.5alai.iaO. UaHSUaaa* • This Subprogram is written in Ada. 



3.2.2.538.4 iiiSfl* ££S.yX£i.£S.l£« *" This subprogram is not used recursively. 



3.2.2. 538. 5 Ne.s.ijjfit lA^f.Q » - scp.stmt 



3.2.2.538.6 {Ho.s.i Qsaanfl'S.GS.i&l • - None 



3.2.2.538.7 laLSSt QsaSEa'aaalS.i • ~ None 



3 .2.2. 538.3 Inbox o.a £221 VisJ.ailiiy. . - Outside Package. 
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3.2.2.S38.9 Ea2.cJ s .iaa££.£a c .2.a'!4£a« - T h i s subprogram is a Procedure. 



3.2.2.533.10 £a£2iai taL32SiS£5« - 

suotree : in cdm.t ype .c^node^r ef > — reference to diana 

node to be checked 
context : in s tmt„chk .context_rec } — defines context in 

which this node appears 



3.2.2.538.11 iiaazfLLLSaJLl* - Stat event sequence list is modified. 



3.2.2.538.12 UaflUlfiUa. - 

if MAINTENANCE option A> then 

PRINT w at node"* node* '"of type"* cdm^type.get.node.idC node) * 
"context »"t context> 

end if; 

if THIS node has already been flagged as in error> then 

return; 
end if; 

if NOT in a subprogram or accept statements then 

ERROR 17227> 
end if; 

CHECK as_exp_vo i d> 

SET retur n_stmt_presen t flag in stmt. sequence node> 



3.2.2.538.13 iiasaaatis usaaaaas Saasiaisi- - None 



3.2.2.538.14 esaisaiss. ai Bala li£aatu£aa« - None 



3.2.2.539 2aaa£aa£aa« * sc_.goto 



3.2.2.539.1 £il£aaaa» ~* Perform statement checking on a node of type 
•goto'. 



3-1094 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Couoiler *acn i ne-Independent Section C5 Specification CS-CP-0059-C S 4 

1 November 1933 



J. 2.2. 339.2 sLiiUiSaliailS* ~ None 



3 .2. 2. 539. 3 Ijial23£QJt,aS.iaa Iran gu.a.ge . - This Subprogram is written in Ada. 



3. 2.2.539.4 lisal &aaa£.Si.2£ftiY.« - This subprogram is not used recursively. 



3.2.2.539.5 Nasi^d. &j.£hij2. - scp.stmt 



3.2.2.539.6 nasi, cisas.adao.aias* ~ None 



3.2.2.539.7 Iaxa&JL Qsaaad£aai5..S. - None 



3.2.2.539.8 inaataacaa VisiaililX* ~ Outside Package. 



3.2.2.539.9 £uQc.iiaQ£E£aS£lil££ • - This suborograro is a Procedure 



3.2.2.539.10 £arjaai P-aLaaaiaLS- - 

suotree s in cdm_t ype .c^node^r ef » — reference to diana node 

to be checked 

context : in stmt^chk.context^rec » — defines context 

in which this node 
appears 



3.2.2. 539.11 iiaarillaaiS- - None 



3.2.2.539.12 ^iaa£iilia« - 

if MAINTENANCE option A> then 

PRINT "at node'S node* "of type"* cdm_type.get..node_ i d { node ) » 
"context »"» context> 

end if; 
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i f Tr»I5 node has already been flagged as in error> then 

return; 
end i f » 

for EACH sequence.o f _s tatements from Innermost to 
first exception or outermost) loop 
if AS.NAME is in label !ist> then 

return; —ok 
end if; 
end loop; 

ADO as_name to list of unchecked goto's for the current sequence 
of statements) 



3.2.2.539.13 SLUaaaaiia *S12aa&S 5£Q££lifiSl« - None 



3.2.2.539.14 tsaaalSS. 21 Si£a££U£2S« - None 

3.2.2.540 So, jamas £aoj , - sc^entry^cal 



3.2.2. 540.1 £u£fi£S.e,. — Perform statement checking on a node of type 
• entr y_ca I I * • 



3.2.2.5 40 .2 A^jtiiiaaiiaa^* — None 



3.2.2.540.3 Iaal£2l£D.£a£i2Q Lan guaae. - This Subprogram is written in Ada. 



3.2.2.540.4 Uissl SSS.UXSiXS.iY.* This subprogram is not used recursively. 



3.2.2.540.5 Cias.isfll jiiiaia* ~ scp_stmt 



3.2.2.540.6 tiasi Qaaaalaaaias* ~ None 
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3.2.2.540.7 iiflii£E£la n .£.iSi» °" None 



3.2.2.540.3 SiiifiL2acai iisiailil^ • ~ Outside Package. 



3.2.2.540.9 £u2£liaQ£P-L2£aStiJLE.a« • This subprogram is a Procedure. 



3.2.2. 5 ao. io £ar.2sal PacamaiaLa- - 

subtree : in cdm^type .c_node_ref » — reference to diana 

node to be checked 

context s in s tmt_,chk • con t ext_rec ; — defines context 

in which this node 
appears 



3.2.2.540.11 ii^£-£ltaSLii- ~ None 



3.2.2.540.12 ^iaatiiiia. - 

if MAINTENANCE option A> then 

PRINT w at node"* node* "of type"* cdm^type.get.node. i d ( node ) ♦ 
"context *•% context> 

ena if; 

if THIS node has already been flagged as in error> then 

re turn ; 
end i f ; 

CHECK as - param - assoc - s> 



3.2.2.540.13 Qiaanasiia Sasaaaas Sanaf.aiad- - None 



3.2.2.540.14 tiaialSS. at UaiS I.£ r .U£i.U r ..££« - None 
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3,2.2.541 £u£.2L22.L2.!« "* sc.accept 



3,2.2*541.1 f.k£aa.5.£ • ~ Perform statement checking on a node of type 
•accept'. 



3.2.2.541.2 AsiU0iaJLia!15» " None 



3,2*2, 541,3 l2]2l£!D£Qjkl£ifia LlO auaaSf • - This Subprogram is written in Ada, 



3,2,2.541,4 Ussa SS£U£SiXS.l^« ~ This subprogram is used recursively. 



3,2. 2*541,5 Ne„£i£a MLtiliD.* - scp-stmt 



3.2,2.541.6 fciaSl Qsa££ldaQ£.i£2« - None 



3.2.2.541.7 Iar a »i !2safif2£lafi£iSl. ~ None 



3.2.2.541.8 Sa2a£aS£affl - Outside Package 



3.2. 2,541. 9 £iiaaiiaa££Laaafl , U.£,§.« ** This subprogram is a Procedure, 



3,2.2,541,10 £a£2al Par amet er s . - 

suotree : in cdm^type ,c - .node_r ef ; — reference to diana 

node to be checked 
context : in stmt^chk ,eontext_recJ — defines context in 

which this node appears 
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3.2.2.341. 11 £i3e.z£l!s,£iS.« - None 



3.2.2. 541. 12 A last i t£H» - 

if MAINTENANCE option A> then 

PRINT "at node", node* "of type"* cdm_type.get.node_id(node) • 
"context »'•♦ context> 

end if; 

if THIS node has already been flagged as in error> then 

return! 
end if; 

CHECK as.naoie) 

CHECK as_param„s> 

CHECK as_stm_s> 

if NQT in a task body> then 

ERROR 17224> 
end i f ; 

if IDENTIFIER on end does not match as_name> then 

ERROR 17228> 
end if; 



3.2.2.541.13 aiasaaaiic. siasaaasi Ssaanaisd- - 

SEVERITY 

17224 E accept statement does not appear in a task oody 

17228 E end identifier does not match entry name 



3.2.2.541.14 ixasalaS, Ot iala Lfc£U££.ii£IL£« - None 



3.2.2*542 S.y.b.a£aaLaa« - sc_delay 



3.2.2. 542.1 P.iif.D.o.s.g,. - Perform statement checking on a node of type 
•delay*. 
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3 #2.2. 542,2 iiiu.iali2.ai* ~ None 



3.2.2.542.3 IiB2i£2£Q.JLaLiaC! Ll0,3UslS£« " This Subprogram is written in Ada. 



3.2.2.542.4 Ui&St £££U£,iiv.e.iy.. " This subprogram is not used recursively. 



3.2.2.542.5 SisiiSSi .i.-iO.« • scp_stmt 



3.2.2.542.6 Hfii£ Qgq,snfl3QC. iSS* " None 



3.2.2.542.7 IanaSi SsaSQ^anaiSi^ - None 



3.2. 2.5 42. 8 S_b£f.aa£a!a Vt sipi i i . - Outside Package. 



3.2.2.542.9 &u&a-iaa-£LaS-a^L£S* *" Ttiis subprogram is a Procedure. 



3.2.2.542.10 £a£aal P.aLa!2i££i • - 

subtree : in cdm_type .c_node_ref ; — reference to diana 

node to be checked 
context : in stmt_cnk.context_.rec; -"— defines context in 

which this node appears 



3.2.2.542.11 .iasz£U£ai.i* - None 



3.2.2.542.12 AJ.£aLi-!ia« - 

if MAINTENANCE option A> then 

PRINT "at node"* node» "of type's cdm„type .get_node_ i d < node ) * 
"context context) 

end if; 

if THIS node has already been flagged as in error) then 
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return; 
end i f ; 
CHECK as.exo> 

if NOT in a task body sequence) then 

ERROR 17212> 
end if; 



3.2.2.542.13 aiaaa2&£i£ S£fl££a.Lad* ~ 

SEVERITY 

17212 E delay statement does not appear in a task body 



3.2.2.542.14 jS.affiaJ.fiS. al 2lr.U££.yX££* " None 

3.2.2.543 Siiaataacai* " sc_select 

3.2.2. 543.1 Enxaasfi. "* Perforn statement checking on a node of type 'select 1 • 

3.2.2.543.2 ASSiiSaiiaHS* - None 

3.2.2.543.3 IaalSaSQialifiQ Laai2U3£l£* " This Subprogram is written in Ada. 

3.2.2.543.4 Llasi Saaiii:5ive.i.x. - This subprogram is used recursively. 

3.2.2. 543.5 ^SlJLSSt jUlSlLa* - scp_stmt 

3.2.2. 543.6 Hail Q£a£Oa'S.nal&l« — None 
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i.2.2.543.7 liLaai iisasn^n c.j.e 3 . - None 



3.2.2.543. a S.^o.taacaa li£iai.JLi.lY.» ~ Outside .Package* 



3*2.2. 543*9 £uG £iiaa£££as a^Lllf-S • ~ This subprogram is a Procedure. 



3.2.2. 5 43 .10 Siacaal £LaLaiEfttar.i» ~ 

suotree : in cdm.t ype #c..node_r ef ; -* 
context s in s tmt_chk .context,.rec J * 



reference to diana 

node to be checked 
• def ines context i n 
which this node appears 



3.2.2.543.11 iiflfirfiiiSfiil. - None 



3.2.2.543.12 A.isar.j.£h ig. ~ 

if MAINTENANCE option A> then 

PRINT "at node's node. w of type'% cdm_type .get^node., i d( node) • 
••context context) 

ena i f ; 

if THIS node has already been flagged as in error) then 

return; 
end if; 

CHECK as.cono.c I ause> 
CHECK as_stm_s> 

if NUMBER of terminates >1> then 

ERROR 17213> 
end if; 

if NUMBER of terminates >0 and of delays >0 > then 

ERROR 17214> 
end if; 

if AS_STH_S not empty) then —else present 

if NUMBER of terminates >0 or of delays >0> then 

ERROR 17215> 
end i f ; 

end if; 

if NUMBER of terminates = 1 and context is an inner block with task 
ob j ect s> then 
ERROR 17216> 
end if; 

if ENCLOSING unit not a task body) then 
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ERROR 17217> 
end i f \ 

if NUMBER of accepts * 0> then 

ERROR 17218> 
end if; 



3. 2. 2. 543. 13 iiiaaaa&iis. Jisisaa&s Ssnanaisd- - 



17213 
17214 
17215 
17216 
17217 
17213 



SEVERITY 
&Ufi*£x£ A E I£2I 

E more than one terminate in a select statement 

E terminate and delay in same select statement 

E term, or del. present with 'else' in select stmt 

E teri». appears in inner block which dec I. body task 

E select statement does not appear in a task body 

E at least one acccept statement required 



3.2.2.543. 14 ixaigaifts, at Uaia ILf.li£ilLL&S.» - None 



3.2.2.544 SiAaataaLaa* ~ se_con d_ent r 



3.2.2.544.1 EiiXttaSS" - Perform statement checking on a node of type 
' cond.entry • • 



3.2.2.544.2 AiSilffittJtififlJS* - None 



3.2.2.544.3 {.-go, { etyffnta, t i qq Language. - This Subprogram is written in Ada. 
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3 .2.2. 544.4 U£g,<2 &e.c.u£sj.ve.J.¥» "* This subprogram is not used recursively* 
3. 2. 2. 544. 5 iie.s.l5j2 jail£U.n* - scp.stmt 
3.2.2. 544.6 tlflil Qsa£0.d£il£.iH» - None 



3.2.2.544.7 Ia££9.JL Oeoendenc t e s. - None 



3.2.2.544.8 S.y.Qft£ 221.121 ^isi&iiiJfcX* " Outside Package. 



3.2.2.544.9 EyO.£tiaQ£££a.£££y.LSL« " This subprogram is a Procedure, 



3. 2.2. 544.10 t2LB^i P.£La!3£jL£r.£ • - 

subtree s in cdia.type.c.node.ref ; — reference to diana 

node to be checked 

contexts in stmt.chK. context. rec» — defines context in which 

this node appears 



3.2.2.544.11 iiolsr£ilS£il- - None 



3.2.2.544.12 4J.32f..UilJ2« - 

if MAINTENANCE option A> then 

PRINT "at node'** node* "of type"i cdm.type.get.node. id(node) » 
"context ="» context> 
end if; • 

if THIS node has already been flagged as in error> then 

return; 
end if; 

CHECK as.stm.sl> 
CHECK as.stm_s2> 

if FIRST stmt of si not an entry call > then 

ERROR 17219> 
end if; 
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if ENCLOSING unit is not a task body> then 

E**0S 17227> 
end i f i 



3. 2. 2. 544 .13 aiaaaaaJUfi *e.ss.aaa.s &&o££ai£4« - 

SEVHRI TY 
£0I2& I£XI 

17219 t first stmt in select sequence is not an entry cati 

17227 £ conditional entry does not appear in a task body 

3.2.2. 544. 14 =xa2&lSSL 2l SiLii£lULSi- - None 



3.2.2.545 SsA2ar.aaC.aai* ~ sc_t i med„.ent 



3.2.2. 545. 1 £y.£aa.Sa« " Perform statement checking on a node of type 
1 1 i med entry • • 



3.2.2.545.2 As.s.y.m.aiiaa.S* - None 



3.2.2.545.3 laaASffiaaiaiiaa Laaauaa&« ~ This Subprogram is written in 4da 



3.2.2.545.4 Liasa" SaauXliialY.- This subprogram is used recursively. 



3.2«2.545.5 tia2.JL.gd, WjLfcQ j.n. - scp.stmt 



3 .2. 2. 545 .6 H&Si Jiaae.ailailS.ia2* " None 
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3.2.2. s>45. 7 IsL£,£a£. Q,&a*Q£* n ,£.i.£aL« • None 



3.2.2.545.6 Sub.D.r,p.2£.a!s y.is.i.bJ.J.i£y.. • Outside Package. 



3. 2 .2. 545 .9 F^Qct, i.on/£P„ro<;edur,e . - This subprogram is a Procedure, 



3.2.2.545.10 £a£,aal f-aLaaaisns* - 

subtree: in cdm^type. c„node_r e f ; — reference to diana 

node to be checked 

context: in stmt..chk • contex t_r ecj — defines context in which this 

node appears 



3. 2.2. 545. 11 iifl£-£f.f,£C.£s.. - None 



3.2.2.545.12 Aiaatiijnjs. - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type"* cdm.type • get.node.. id (node) * 
"context a "i context> 

end if; 

if THIS node has already been flagged as in error> then 

return; 
end if; 

CHECK as„stm_si> 
CHECK as-stm_s2> 

if FIRST statement of si not an entry call> then 

ERROR 17220> 
end if; 

if FIRST statement of s2 not a de I ay> then 

ERROR 17221> 
end if; 



3.2.2.545.13 ai.a2Bas.iJ.s. Bssaaaas Ssasxaissi* - 

SEVERITY 

17220 E entry call expected 
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17221 fc delay statement expected 



3.2.2.545.14 tiaaiaiai ai aaia. Sif-usLiuLas.^ - None 



3.2.2.546 iytaanaaLaa! • • sc_abort 



3.2.2.546.1 £u£aaiS- "* Perform statement checking on a node of type 
•abort*. 



3 .2.2 .546.2 ISiaEfiiiaili* ~ None 



3.2.2.546.3 laalSLaSElisliiSO. LaaauaaS* ~ This Subprogram is written in Ada. 



3.2.2.545.4 [Jsaa SfiS.iJLf.2iy.aXx* " This subprogram is not used recursively. 



3.2.2. 546. 5 NfiSlSSl atiiiliQ. - scp_stmt 



3.2.2. 54(>.6 tlaSi £l££££l<2£I!£i££« - None 



3.2.2.546.7 Ia£as,£ Qgg.Sn^ e . n , < »,i.SS« - None 



3.2.2. 546.8 SaaflLaSiam YisikiiilX- - Outside Package. 



3.2.2.546.9 Fqnct i on/ Pr o cedur e « - This subprogram is a Procedure 
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i.2.2.54o.l0 £2L!24i l&LZLZlk&Ll • - 

suotree : in edm_type • c„„node_ref ; — reference to diana 

node to be checked 

context : in s tmt.chk .con tex t_rec ; — defines context in 

which this node 
appears 



3.2.2.54o.ll Uas=£tta££S. - ^°ne 



3.2.2. 546, 12 Al<jo,£j,£hj3. - 

if MAINTENANCE option A> then 

PRINT "at node'S node* "of type"* cdm..type. get_node_ id(node) » 
"context »"» contexts 

end if# 

if THIS node has already been flagged as in error) then 

return; 
end if; 

for EACH name in as_nan»e_s> ioop 

CHECK as.narae) 

if NOT a task name) then 
ERROR 17222> 

end if; 
end loop; 



3 .2. 2. 5 46. 13 SUaaaailiS. ISSSaaSS £&Q£f_a£e4. - 

SEVERITY 
£QD.£ I£*I 

17222 E task name required in abort statement 



3.2.2.546.14 £iaaalSS 2t lil.U£liir.SS« - None 
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3*2*2.547 iu,iiaL22,L3.ia» "* sc.code 



3.2.2*547*1 Puf.a2S£,» ~ Perform statement checking on a node of type 
•code'* 



3.2.2.547.2 4SIU!llftiia.aS« ~ None 



3.2.2.547*3 iaalaiSCLiaiiflll L3.Q.31UL&&* " This Subprogram is written in Ada* 



3.2.2*547.4 Usai &££a£.sj.veji,x» ~ This subprogram is not used recursively 



3.2*2.547.5 tiaaJ^ssl !iii.aifl» - scp_stait 



3« 2. 2 . 547. 6 Hfiii QSfiSQJiS.QS.iS-i* ~" None 



3.2.2.547.7 Ia.££Si &£aSI2£lSIl£.is.2 • " None 



3* 2*2. 547.8 £jiaar„22£aa y.iSiaJLiii^« ~ Outside Package. 



3.2.2*547.9 g y q c. , }„ q g £ P- L 1 ,fi 9 L fl . C ft • This subprogram is a Procedure, 



3.2.2.-547*10 £2Lfflal P.a£.aa&tS££ • - 

subtree : in cdm_type .c_node_ref > — reference to diana node 

to be checked 

context : in stmt. chk. con tex t^rec ; — defines context in which 

this node appears 
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3.2.2.547.11 iias-£lt££lS- " ^one 



3.2.2.547.12 41afi£ii£lfl!» - 

if MAINTENANCE option A> then 

PRINT M at node w » node* "of type"* cdm_type.get..node_id(node) * 
"context »'N context> 

end if» 

if THIS node has already been flagged as in error) then 

return; 
end if; 

if THIS statement sequence has non.code) statements then 

ERROR 17223> 
end i f ; 



3.2.2.547.13 iiiasQaatia Sassaaas Saamaisst^ - 

SEVERITY 

GQ&l £U**£*li,E X£XI 
17223 £ code statements mixed with non_code statements 



3.2.2.547.14 SiamalfiS 2i £Ula I*XU£JLU£S5» - None 



3.2.2.548 Sy.aaia2£asi« - sc_rai se 



3.2.2.543.1 Eiitaaaa* - Perform statement checking on a node of type 
• rai se • • 



3.2.2.546.2 ASSiiffialiaQS* ~ None 



3.2.2. 546.3 laaiSaSQiaLLaQ LaaSUaaS- ~ This Subprogram is written in Ada 
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3.2.2. 54d. 4 &££ l if.5,iY.S.lv.« " This subprogram is not used recursively. 

3.2.2.548.5 £tes.lsfl iiiiiliG* " scp_stmt 

3.2.2.548.6 fciaii QSttSQilaQ.SJ.aSL* - None 

3.2.2.546.7 lataat 2£fl.£Q > dia n .£j.£S« *" None 

3. 2. 2.548. a SiASfiLflSLaa V i s i o i i, (tv. - Outside Package. 

3.2.2.548.9 Euaet ton/Procedure. - This subprogram is a Procedure. 

EaLfflai Par.aasiaf.i- ~ 

cdm.t yp e .c_node_r ef ; — reference to d i ana node 

to be checked 

s tflit_chk.context_rec; — defines context in which 

this node appears 



3.2.2.546.10 
subtree s in 

context i in 



3.2.2.548.11 iiiSrSttaS.il* - None 



3.2.2.548.12 &lSfiLit!lia- " 

if MAINTENANCE option A> then 

PRINT "at node's node, M of type's cdm.type .get_node_ i d(node) « 
"context »'S context> 

end if; 

if THIS node has already been flagged as in error) then 

return; 
end i f ; 

if AS_NAME_VOID is void> then 

if ENCLOSING construct is not an exception handler) then 
ERROR 17224> 

end if; 
end if; 
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3.2.2.543.13 iiiaaQ2iiii Sassaaas fcaaaf-aiaa- - 

SEVERITY 

£32£ ****£*£*£ ls.ll 
17224 6 unnamed raise stmt not appear in exception handier 



3.2.2. 54a. 14 tiaiDaJL&s at £U£a ifctaaluias* - None 



3.2.2.549 SuJiar-aaf-aa* ~ sc..terroinate 



3.2.2.549.1 £u£aaS£. - Perform statement checking on a node of 
' termi nate* • 



3.2.2.549.2 iiauSSaiiaai* ~ None 



3.2.2.549.3 ImaJLaSiaaiaiiaa La>aauaa£« • This subprogram is written in Ada 



3.2.2.549.4 lisaa Saay.JLailSj.2* — This subprogram is not used recursively, 



3.2.2.549.5 Ne.£ie.a H \, VhJ,"* ~ scp.stmt 



3.2.2.549.6 HfiSl QaaaadSiiaiaSL* - None 



3.2.2.549.7 lanast Qaaaaaaaaias- - None 



3.2.2 f 549.3 SuaaiaaLas Y i s I b i, I, i t y . - Within Package Only. 
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3.2.2.349.9 EuQ£Ii2Q£E.L°.£!ftjlUL£» " T his subprogram is a Procedure, 



3«2. 2. 549.10 £2£isal fracas Lsr.s» - 

subtree : in cdm_tyD e .c_node_r ef » — reference to diana node to 

be checked 

context : inout context. rec> defines context in which this node 

appears 



3.2. 2.5 49.il iig.a-£lf e.£i^ • - None 



3.2.2.549.12 Aiaaciltia- - 

if MAINTENANCE option A> then 

PRINT "at node"* node* "of type*** cdm_type.get..node_ id(node) * 
"context =»'• t context> 

end if; 

if THIS node has already been flagged as in error> then 

return; 
end if; 

if NOT in a task body> then 

ERROR 17226> 
end if; 



3.2.2.549.13 £ia£Q££ii£ *£S£aS.£S £S!l£Lli£Sl« - 
SEVERITY 

17226 E 'terminate* not in a task body 



3.2.2.549.14 £,iafflaJ.e.£ al £211 " None 



3.2.2.550 Su.SLato.ar.affl" - sc_proc_cal I 
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3.2.2.550.1 *" Perforn statement checking on a node of type 

• procedur e.ca N ' • 



3.2.2.550.2 A^syjaaiiaaS* ~ None 



3.2.2.550.3 iiaXsaiataiiaa Laaauaas* • This subprogram is written in Ada. 



3.2.2. 550.4 US.1S1 £££U£liy.£j.Y.. • This subprogram is not used recursively, 



3.2.2.550.5 ^iiflia« - scp.stmt 



3.2.2.550.6 Haai Qsaaadaaaisi' - None 



3.2.2.550.7 iaiaai Qaasa^aaaiai* - None 



3.2.2.550.8 Suacxaataffl liSiailiiy.^ - Outside Package, 



3.2.2.550.9 £u.afi.iiaa£££fl£adii£a» ** This subprogram is a Procedure. 



3.2.2.550.10 £a£2al parameters. - 

suotree s in cdm_type.c_node._ref ; — reference to diana node to 

be checked 

context 2 in s tmt_chk.context_rec» — defines context in which this 

node appears 



3.2.2.550.11 _i&e.-££f -None 
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3.2.2.550.12 AlaaLilha. - 

if -MAINTENANCE option A> tnen 

PRINT "at node"* node* "of type w » cdm^t ype • get_node.„, i d ( node) ♦ 
"context =** i context > 

end if; 

if THIS node has already been flagged as in error> then 

return ; 
end if; 

CHECK as_param_assoc_s> 

if THIS procedure is generic> then 

ERROR 17225> 
end i f » 

— compute elaooration order information 

ADD (conta i n i ng_procedur e_nanre calls as_narae) to ca I I _r e I at i on list> 
if THIS is an elaooration context> then 

A00 as.name to e I aborat i on.ea I I list> 
end if; 



3.2.2.550.13 2j.aaD.aS.iiS 2a2.3.aaa£ SaH&Laiaa* - 

SEVERITY 

££££ !U«UaU&x£ IESI 
17225 E generic procedure called 



3*2.2. 550. 14 tiaaalSS. fit !laia SiLJiai.Uf.aa* - None 



3.2.2.551 Eaaitasa- ~ scp.prag 



3.2.2.551. L Sliif-aaiS* ~ Implement the statement checking function for pragmas. 



3.2.2.551.2 N.ua&SL 2i Subprograms . - 7 



3.2.2.551.3 !2*\aaO,iaD.ai£SL 20. Q&h.e, r _ 2.a.ShS2S5, tQ.L $2S,£« * c dm^t yp e »s trot.chk 
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j«2*^«55i»4 lalikiaaii ssa&aisaaiss lat ia3a> - cdm.as* scp„tdeo» sc.ciass* 

diagnose 



3 .2.2. 551.5 Eaafcaas Sasaitiaaiian* - 

package scp_prag is 

procedure sc.oragma; 

procedure sc_title; 

procedure sc.mem.s i ze» 

procedure sc.optimizeJ 

procedure sc.or i or i ty J 

procedure sc^strg^un i t; 

procedure sc_system; 
end scp^prag; 



3.2.2. 551.6 SiaUatatiflflL £ail£« • None 



3.2.2.551.7 Siaaaisi al £a£a Sif.iiaiuf.as- - None 



3.2.2.552 Saaaf.aaf.afll' - sc„pragma 



3.2.2.552.1 £,a£,aaS£« *■ Perform statement checking on a node of type 
* pragma 1 • 



3.2.2 .552.2 &S.£U2iaiiaQ.£» - None 



i.2.2.552.3 laaJLaffiSaialifiQ kanaaaaa* - This Subprogram is written in Ada 



3.2.2.552.4 HiSi &aaU£.£i£S.l£* ~ This subprogram is not used recursively. 
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3.2.2.552.5 iiaSltSi ail!li0.» " scp.prag 



3.2.2. 552.6 Ho.s.1 &£P.££l4&a2.i£2* " None 



3, 2. 2. 552. 7 laiSSl ttSftaalaaSLLAl • - None 



3.2.2.552.8 2._,D.£,o.sx_a Y. ili&X • - Outside Package, 



3.2.2. 552.9 Eu2££i2Q£P.LA c .S.£Lii£& • " This subprogram is a Procedure. 



3.2.2.552.10 Eatfflai PaLiS ~ 

subtree 5 in cdm„ B tyoe.c_nod9 - .r ef i — reference to diana node 

to be checked 

context : in stmt.chk.context._rec; — defines context in which 

this node appears 



3.2.2.552.11 £ia£=£lta£l£. - None 



3.2.2.552.12 ftJjLMjJJia- - 

if THIS node has already been flagged as in error> then 

re turn ; 
end if; 

CHECK as_param - .assoc_s> 
case PRAGMA name) of 

when PAG£> J INCLU0E> ! LIST> »> 

return ; 
w-hen TITLE> »> 

INVOKE sc_title> 
when INL I NE> 

return; 
when INTERFACE> »> 

return ; 
when NE*ory_SIZE> => 

INVOKE sc.aiem.s i ze> 
when OPTIMIZE> »> 
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INVOKE sc. oo t i m i ze > 
when PRIURITY> => 

INVOKE sc.priority> 
when STORAGE. UNI T> »> 

invoke sc.stdr.unit> 
when SUPPRESS> -> 

INVOKE sc.suppress> 
when SYSTEfO »> 

INVOKE sc.system> 
when control J ed> *> 

INVOKE sc.contro II ed> 
when PACK> *> 

INVOKE sc.pack> 
end case; 



i. 2. 2. 552. 13 aiaaaastia Jlasiaass Gaaaiaisa* - None 



3.2. 2. 552,14 feiasalsi a! Uata Sir-uaiiitas* - None 



3.2.2.553 SiiaaLaatai- - sc.title 



3.2.2. 553.1 P.ii£aai£» - Perform statement checking on a TITLE pragma. 



3.2.2.553.2 ASSU0iaii2Ql* - None 



3.2.2.553.3 Iaai£2S0.IaijLflQ. LlQ.auaa£« ~ This Subprogram is written in Ada. 



3.2.2.553.4 Us.e.a Ssa.y.LiilS.ii.* - This subprogram is not used ' recur si ve I y. 



3.2.2. 553.5 kLLlaia* "* scp.prag 
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3.2.2.553.o Hail iiSasadSaSiSS* ~ None 



3. 2 • 2.553.7 latSSi dsasast&aaias • ~ None 



3. 2.2. 553.8 Sy.aa£23£3ffl Y isl.fr U.UX* - Outside Package. 



3.2.2.553.9 £u,a&£iaaZ££a.£fia , )l£S« • This subprogram is a Procedure. 



3.2.2.553.10 £aoal £at£!B£lfir.JL« - 

suotree s in cdm^type.c.node.ref J — reference to diana node 

to be checked 

context s in strot.chk.cont ext_rec> — defines context in which 

this node appears 



3.2.2.553.11 UilS=£Ll&£ii. - None 



3.2.2.553.12 &iaa£ilasi<. - 

if THIS node has already been flagged as in error> then 

return; 
end if; 

if NOT the first lexical unit> then 

ERROR 17300> 
end if; 

if AR6 not a character string> then 

ERROR 17301> 
end i f ; 



3.2.2.553.13 tUaaaa£ti£ fiaisaa&s ££a&£a&£4* " 

SEVERITY 
£QQ£ !ixisU£*i.*,£ I£*I 

17300 W title pragma misplaced 

17301 W invalid argument for title pragma 
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3 .2. 2 .553.14 ixaaalas. ax. ii£2. Sir.uc.i.uias* ~ *'ona 



3.2.2.554 S,u.aaLaSLLai!l« ~ sc - ,mefn - .s i ze 



3.2.2.554.1 2lU£.aftS£» - Perform statement checking on a ttEMQRY.SIZE 
pragma. 



3.2.2. 554.2 AjiJifflaiiaQl* " None 



3. 2.2. 554. 3 IjUalfiSSQlaiiaa LsL12£ua£L£ • - This Subprogram is written in Ada. 



3.2.2.554.4 Usafl > E£aU£,lll£ll* ~ This subprogram is not used recursively. 



3. 2. 2. 554.5 Ne.5i.ga &i£!lia« ~ spc_prag 



3. 2 .2. 554. 6 Hail Q£aS>Q4&&S.i&2« "* None 



3.2.2.554.7 latest ascan^aQaiSi- ~ None 



3.2.2.554.8 Su.apxa2f.ai £i2i&jLii££« " Within Package Only 



3.2.2.554.9 &ya£liaa£P.r.a c .£d.y.r.a« "" This subprogram is a Procedure. 



3.2.2.554.10 tarjsai PaLaffifilaxs- - 

subtree : in cdm_typ e. c.node^ref J — reference to diana node 

to be checked 

context : in stmt_chk.context..rec> — defines context in which 

this node appears 
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J. 2.2. 554.11 ii»l£;£f.ts5.iS« - None 



3.2.2. 554.12 ilaaCiltllD* ~ 

if THIS node has already been flagged as in error> then 

return; 
end if; 

if NOT before a compilation unlt> then 

ERROR 17302> 
end i f i 

if ARGUMENT value not in range 0. • system. memory. s i ze> then 
ERROR 17303> 



3. 2. 2. 554. 13 &ia.aaa£il£ HSLlZZSLZS. &iaSLLa±&&» * 
SEVERITY 

17302 W memory_s i ze pragma misplaced 

17303 W invalid value for memor y_s i ze pragma 



3.2.2.554.14 £*a.m.aJLS£ at Sail Si£U£tU££S» - None 



3.2.2.555 SjjJ&.&r aaLai* - sc_opt i mi ze 



3.2.2.555.1 £,l£ftas.a. - Perform statement checking on an OPTIMIZE pragma. 



3.2.2.555.2 A,3.s.iifliaJLL&Q.5» "* None 



3.2.2. 555.3 Il2i e .2I£ala.LLS.a LaaauaaS « - This Subprogram is written in Ada. 
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3.2.2.-555.4 !isL2Sj iiac.'J.LSiXS.li* " This suborogran is not used rscursively. 



3.2.2. 555.5 NgsJ^gg fciiQifl. ~ scp_prag 



3.2. 2. 555. 6 HflSi QsaSfl^SHfiiaS* *" None 



3.2. 2. 555.7 Ia£3££ UaaaQ4SQSi5i • - None 



3.2.2.555.8 S.iA3P.£2S£a.jji V t,S * Q j, | jty,. - Within Package Only. 

3.2.2.555.9 £u3££i2fl£^£iiJ;££yJL£« ~ This subprogram is a Procedure. 



3. 2 .2. 555 .-io Eaoial (La£322 ££.£££• - 

suotree : in cdm^tyo e.c.node.ref J — ► reference to diana node 

to be checked 

context : in strat_chk.context_rec> — defines context in *hich 

this node appears 



3.2.2.555.11 ii4s-££f.e.c.Ii. - None 



3.2.2.555.12 ±iaa£iilUB- - 

if THIS node has Already been flagged as in error> then 

return; 
end if; 

if NOT in a declarative part> then 

ERROR 173Q4> 
end if; 
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3.2.2.555.13 iiiaaaaalia *e.£s.aaas. £aa&Laial« - 

SEVPRITY 

17304 W optimize pragma not in a declarative part 



3.2.2.555.14 fciaaalss. ai aaii Si£U£iu£&£- - None 



3.2.2.556 iuaar.aar.aa* - sc.priority 



3.2.2.556.1 £i£.aas,a« *" Perforin statement checking on a PRIORITY pragma, 



3.2.2. 556.2 £££U!2aJ»ia0.5« - None 



3.2.2.556.3 ItSaiSfflSQiaiAaO. Uaaauaaa* • This Subprogram is written in Ada 



3.2.2.556.4 UxS,SL &SLS.\iL^LlZLl* ~ This subprogram is not used recursively 



3.2.2. 556.5 ii£ii5St Siiiaxn. - scp.prag 



3.2.2.556.6 tiasi uaa&aa'&aaias* - None 



3.2.2.556.7 ianaai Qsaanaaaaias- - None 



3.2.2.556.8 S^aaLaacaffl YiliaililX* - Within Package Only. 
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J.2.2.55o.9 ^!AQ£ti2D.Z,£.La££^U.LS,» *" This subprogram is a Procedure. 
3.2.2. 556.10 £aL2ai. 2. acaai - 

subtree : in cdm_ > type.c_node_r ef » — reference to diana node to 



context t in stut_chk.context_.rec* — defines context in *hich 



3.2.2.556.11 iiae.-EXLa.ii* " None 



3*2.2.556.12 &iaaEJL-£l!E« ~ 

if THI5 node has already been flagged as in error> then 

return; 
end i f J 

if MOT in a task spec or outermost decl part of library subprogram> then 

ERROR 17305> 
end if; 

if VALUE not in range of subtype SYSTEM. PRIQRITY> then 

ERROR 17306> 
end if; 



3.2.2.556.13 .iaana-lia *sssaa&a ££as.£ai£-* - 



be checked 



this node appears 



SEVERITY 



17305 



W 



priority pragma misplaced 



17306 



invalid argument for priority pragma 



3.2.2. 55&.1A sLxaaaiaa at aaia Sims.Iar.as* - None 
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3. 1 .2. 557 £i±££f.fl2£aQl« " sc.strg^unit 



3.2.2.557.1 SiLflaaS* ' Perform statement checking on a STORAGE.UNIT 
pragma. 



3.2.2.557.2 A.££ufflaii&QS« - None 



3.2.2.557.3 IfialSSl&aiaiiaa LaaaUE&fi* ** This Subprogram is written in Ada 



3.2.2.557.4 iiiSfl" &£SLilLiiY.3J.Y.« - This subprogram is not used recursively. 



3.2.2. 557.5 JisHsa. Milaia* " scp.pragma 



3.2.2.557.6 tfcs.1 D.SftSaa'aafei&a* - None 



3.2.2.557.7 laCSSl &£a£ad&a£i£.3* * None 



3.2.2. 557.8 SusaLaSLaffl V IS ift t \ itY • " Within Package Only. 



3.2.2. 557.9 Eaa££.ifla£P.La.£&£U£a<' - This subprogram is a Procedure. 



3.2.2.557.10 &ar.aai 2.aLaaiai..£LS.* - 

subtree : in cdm_type.c..node_r ef J — reference to diana node 

to be checked 

context : in s tmt.chk.con text^rec? — defines context in which 

this node appears 
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3.2.2.557.11 IL&S.z'iLt.S.S.H* - None 



3.2.2. 557. 12 A,i.afir.iI£J3» - 

if THIS node has already been flagged as in error> then 

return; 
end if? 

if NOT before a library unit> then 

ERROR 1730 7> 
end if; 

if VALUE of argument /* SYSTEM. STORAGE_UNIT> then 

ERROR 17308> 
end ifj 



3.2.2.557.13 QiaaQa££.ia *as.&aaai Ssaaialsa^ ~ 

SEVERITY 

17307 W storage.un i t pragma misplaced 

17308 W invalid s torage„.un i t pragma argument 



3.2.2.557.14 ii^aalSS. al SLala lfc£il££i*Xa,£* - None 



3.2.2.558 SuaaLaaLaai* ~ sc^system 



3.2.2.558.1 EiCaaiS* - Perform statement checking on a SYSTEM pragma. 



3 .2. 2 .558 .2 iSLSiifflaiiailS* • None 



3.2.2.558.3 Iiaia<2aQ.£a£jL2a Laaauaaa* ~ This Subprogram is written in Ada. 
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3.2.2. d58.4 SiiSsl ii££ , l r ..U.y.3J.¥.» - This subprogram is not used recursively. 



3*2.2.556.5 JiaSlSSl -iiitli".* ~ scp.prag 



3, 2. 2. 55a ,6 Ua5i Q^ftSailaflSLiaS- - None 



3.2.2.553.7 Ia£3JLi Oe g gQ^snc. j j .qs,. - None 



3.2.2.55S.8 Su.b,ar2ar.3jjj V j, iibJJJLLx • - Within Package Only 



3.2. 2. 558.9 P^n ^i,2Q.LZL2&&l\iLS> • ~ This subprogram is a Procedure. 



3.2.2. 553»io Eataal f-acaisfiisuL* ~ 

subtree : in cdm_type.c_node_.ref; — reference to diana node 

to be checked 

context s in s tint _chk. con text _rec? — defines context in which 

this node appears 



3.2.2.558.11 SJL£U-£tIe.c.li. - None 



3.2.2.558.12 AJ^aLilLiro, • - 

if THIS node has already been flagged as in error> then 

return; 
end if; 

if NOT before a library unit> then 

ERROR 17309> 
end i f ; 
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J. 2.2. 5 5b. i3 iia20.25.lic. i-ili&aas S£D.5.I.aiSfl» - 
SEVERITY 

17309 W system pragma misplaced 

3.2.2.553.1^ tiaisaias. at Oata lfcLaatu£ai« - None 

3.2.2.559 iaa&aaa* - scp^comp 



3.2.2.559.1 £u£a25.£. - Implement the 
nooes involved with compilation units. 



3.2.2.559.2 



3.2.2.559.3 



3. 2.2. 559.4 



3.2.2.559.5 £as&aaa iaaaiiisatiaa- - 

package scp.como is 

procedure sc_comp_un t t 5 
procedure sc.pr agma_s; 
procedure sc.subunit; 

end scp„.comp; 



3.2.2.559.6 £iaaar.atiaa £ada- - None 



statement checking function for 



.&13&&1: at SuaataaiLaas. - 3 

Qaaaastsaaias aa Ulasr Laa&aaas tat Saaa* - cdm.type, statcnk 
^aaiiiaaai aaaaalaaaias tai aaa*- - cdm.as. sc.pragma 
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3.2.2.j^.7 L&*aa.Ui ai lLXUSLial£&S« ~ -Morte 

i. 2.2. 560 lu.^aLfl£L2!2l« ~ sc.comp.uni t 



3. 2. 2. 560,1 £ii£aasa* - Perform statement checking on a node of type 
• comp_un it* • 



3.2.2.560.2 Aaaujijaliaas. - None 



3.2.2.560.3 Iaal22l£Qiaii2Q La0.aU£l££« - This subprogram is written in Ada. 



3.2.2.560.4 USSLS" &a£tt£3iY.aiY.« - This subprogram is not used recursively. 



3.2.2.560.5 NfiSJLSS. iii&JXLn,. • scp.comp 



3.2.2*500.6 Hail Qsaaadasaiai* - None 



3.2- 2. 560.7 I§r,aai QSflSadaaaiSJ- - None 



3.2.2. 560.8 Suaaiaataai ^JjuLailJLlX* *" Outside Package. 



3.2.2.560.9 Punqt, ion/, p,r,qce d ur e . - This subprogram is a Procedure. 



3.2.2.560.10 £s,U2i'dl Parameters. - 

subtree : in cdm^t y pe. c_node„.ref # — reference to dian3 node to 

be checked. 

context * in stmt.chk. context.r ec; — defines context in which this 

node appears. 
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3.2.2. 560.11 iiilS-£iIaS.iS» " None 



3.2.2.560.12 &JL22£.ii£lffl« - 

if MAINTENANCE option A> then 

PRINT "at node H t node "of type n t cdm_ty pe • ge t^node.i d* 
••context * " context > 

end if; 

if THIS node has already been Magged as in error> then 

return? 
end if; 

CHECK as - pragma - ,s> 
CHECK as^un i t_body> 
— compute eiaporation information 
PERFORM transitive closure on ca 1 1 .re I a t i on> 
ADD to the CUT ail library units P such that: 
P contains a subprigram Y such that: 

for some X in the e I abor at ion_ca I I list* 

(X calls Y) is in the transitive closure 
of the cat l'_ref at ion> 



3.2.2.560.13 Qiaaaaiiis fissiaass fisaaiaisd- - None 



3.2.2.560.14 £xamaiss. ai &aia l*r,us£u£a£« - None 



3.2.2.561 luHa£aar.ai2« ~ sc_pragma_s 



3.2.2.561.1 PU£fiflSS« ~ Perform statement checKing on a node of type 'pragma 



3.2.2.561.2 fi.ls.uaaiXa.IlS* None 



3.2.2.561.3 IiaiS!2SD>iaLLJ2Q Laaauaas* — This subprogram is written in Ada. 



3-1130 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Compiler Macn i ne-Independent Section C5 Specification CS-CP-0059-C84 

1 Novenoer 1933 

3.2.2.561.4 ESS.ar.SiY.SJ.1.* ~ T his subprogram is not used recursively. 

3.2.2.561.5 N£ii,5fl &i£j2iO.« "* sc.couip 

3.2.2.561.6 UaSl QS£L£QdS.D£i£i« - None 



3.2.2.561.7 laLSSfc QSfiSllilaGliiaS* - None 



3.2.2.561.5 iy.aftr.aar.aa ^iiiaiiii^* ~ Outside Package* 



3.2.2. 561.9 Paa£iiafl£f-tai2£Sli«l£ft« ~ This subprogram is a Procedure. 



3.2.2.561.10 Eacsal P-ataaalar-s • ~ 

suotree : in cam^t y pe . c_node_ref| — reference to diana node to 

be checked 

context : in stint, chk. con text_r ec> — defines context in which this 

node appears 



3.2.2.561.11 iisla-£itaS.i5« - None 



3.2.2.561.12 UsflLiiiiai. - 

if MAINTENANCE option A> then 

PRINT w at node"* node H of type% cdra^type . get^node. i d» 
"context * n context > 

end if; 

if THIS noae has already been flagged as in error> then 

return; 
end if; 

for EACH element of as_list> loop 

CHECK P RAGMA> 
end loop; 
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3.2.2. S>61. 13 2iaaQ2it±£ 12.11Z9.11 " None 



3. 2. 2. 561. ia tsaaaias. at Oaia Iir.ualu£as- - None 



3.2.2.562 Sy,aa£,aaLaai» " sc_subunit 



3.2.2.562.1 £nraaie.# - Perform statement checking on a node of type *sudunit 



3.2.2.562.2 AiSUffiaiiaai* * None 



3.2.2.562.3 Iaialafflaa.tsLii.i2 a L li au^SLS • - This subprogram is written in Ada. 



3.2.2.562.4 Sissa" Saaur.li.Y.alX«. *~ This subprogram is not used recursively. 



3 .2. 2. 562.5 NaSlaa ilUQia- sc.comp 



3.2.2. 562. o HflSi, USaaaiaaaiaS* *~ None 



3.2.2.562.7 ianaai Uaaaaiaaaias* - None 



3.2.2.562.8 Suborgor^m. Y I.S I.Q ,11 LtY. « - Outside Package. 



3.2.2. 562.9 £uaa&iaa££r.a.sady.r»a» ~ This subprogram is a Procedure. 
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3.2.2. 562.10 £i2£2al P-aLiSSllia* ~ 

subtree : in ccjm^,type • c.node.ref » — reference to diana noae to 

be checked 

context 5 in stm t_chk • cont ex t.r ecj — defines context in which this 

node appears 



3.2.2.562.11 iidjg-£|,f.e.£l5. - None 



3.2.2. 562. 12 Aj.aar.iih. a. - 

if MAINTENANCE option A> then 

PRINT "at noie H t noae "of type'% cdm_type. get_node_i d» 
"context * " context > 

end if; 

if THIS node has already been flagged as in error> then 

re turn ; 
end if; 

CHECK as.subuni t_body> 



3.2.2.562.13 2iaaafi£lia Ssa£L2lJ£Sl- - **on« 

3.2.2.562.14 £iafflttlfii 21 &3£a SiLUSiiAXaS- - None 
3.2.2.563 £aa!saaa« - scp_tdeo 



3.2.2.563.1 f.si.LGLS.S.S,* Implement the statement checking function for constructs 
*hicn require target dependent checks. 



3.2.2.563.2 N.ua£SL at Sub.filiiai.aSS . - 2 



3.2.2.563.3 Oaaaadaaaiaa a n Q&J&l £a£Jsaaaa LSLL SaaS» - cdm.type, stmtchk 
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3. 2.2. 563.4 *aa±£.iaaal isasaasaaiss, lar. 2.aay.» ~ cdm.as 



3 .2.2.563.5 Paa&aaa 5.ae,c.iiic,aiiaa« - 

package scp_tdep is 

procedure sc. suppress; 
end scp.tdep; 



3.2.2.563.6 ElaaacaliaQ Caaa* - None 



3.2.2.563.7 SiaaalSS. Ql !2aia Sif.iialUf.SS* - None 



3.2.2.564 2uaa£aaLaiB« sc.suppress 



3.2.2.564.1 Puiaasa* - Perfor* statement checking on a SUPPRESS program 
for POP— 11/70 UNIX, ROLfl 16.66, ROLM 16028 targets. 



3.2.2.564.2 AsSUffiaiiaaS* " None 

3.2.2.564.3 LaaiSasalaiiSQ Language,. - This Subprogram is written in Ada. 

3.2.2.564.4 Siiad Eaaaf.SiY.all* - This subprogram is not used recursively. 

3.2.2.564.5 fctsslSd MilQia* ' ~ scp.tdep 

3.2.2. 564.6 Has! Oeoendenc j,e^. - None 
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3.2.2.b64.7 I^r Q3£ &££3aae.QCj.e.s.. - POP-11/70 UNIX, R3-* 1666, R0L1 1602B 



3.2.2. 564.3 iufcataaLSa Vi£j.bJ.lii£« - within Package Only* 



3.2.2.564,9 Punct j on/Prg cedure,. - This suoprogram is a Procedure. 



3.2.2.364 .10 £o.rj2al £ar.aas£.££S. • ~ 

suotree : in cdm_type.c_node_.ref; — • reference to diana node 

to be checked 

context : in stmt.chk.con text_rec» — defines context in which 

this node appears 



3. 2. 2. 564. 11 S i Qe~Ef.f.ec.ts. - None 



3.2.2.564.12 ^laatiltlffl* - 

if MAINTENANCE option A> then 

PAINT "SUPPRESS pragma w > 
end if; 

if THIS node has already been flagged as in error) then 

return j 
end i f ; 

if NOT in a declarative part> then 

ERROR 53> 
end i f » 



3.2.2.564.13- .lassa-iis. _e^aaa<ts Gsastaisil- - 

SEVERITY 

53 E suppress pragma not in a declarative part 
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3.2.2.564.1^ tsasa'silas. al £aia 2i£uaia££2- - None 



3.2.2.565 SiibaJiaacaa. - sc_suppress 



3.2.2.565.1 £y.£aa£a« - Perform statement checking on a SUPPRESS oragma for 
VAX/ VMS * 9 ARE VAX targets- 



3.2.2.565.2 &&2yjia£iajl£* ~ None 



3.2.2. 565.3 IaalfiS£aiaJ!J.aQ - This subprograit is written in Ada 



3.2.2.565.4 Ussa" &££y.£SiY.sJLx- " This subprogram is not used recursively. 



3.2.2.565.5 Ne.s.ijgg. Mii&ifl* - scp_tdep 



3.2.2.565.6 Hail Q£aana , &flc.i£S • - None 



3.2.2.565.7 laxaai Qsaaadanaiss* - yax/vhs* bare vax 



3. 2. 2. 565. a Su.aaiaar.ain iiSiailiiy.* - Within Package Only, 



3.2.2.565.9 Eua c.£iail£££aa&au£a • ~ This subprogram is a Procedure. 



3 .z. 2. 565.io EaLsal P.a£aasis£i- - 

subtree : in cdm_bas i cs.c.node.ref ; — reference to diana node to be checked 
context i in s tmt_chk .context_r ec ; — defines context in which this 

node appears 
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3.2.2. b65. 11 - None 



3.2.2.565.12 AJ.ao.r,iih»n. - 

if THIS node has already been flagged as in error) then 

return ; 
end if; 

if NOT in a declarative part> then 

ERROR *53> 
end if; 

if ARGUMENT is d i v i s i on.check ♦ overf I ow_check> then 

ERROR *54> 
end if; 



3.2.2.565.13 aiaaaasiis Sssiaa&s SsaaLalsd- - 

SEVERITY 

53 fc suppress pragma not in a 

declarative part 

54 W this check cannot be suppressed 



3.2.2.565.14 feiaaHifiS fit Qa\U SlLUSlUCSS* - None 



3.2.2.566 -i.sicjia.2a* - sc_class 



3.2.2.566.1 £ii£flaS&» ~ Implement the statement checking function for Diana 
classes. 



3.2.2.566.2 N^mfcex fl £ Sjib,a£0.gxa«2S« - 31 
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i. 2. 2. 566.3 S£2SQas(lSiaS 221 Hitler P ac.Jiaas.s. tlL ~ cdm.type* stutchK 



3.2.2.566.4 Aa^xiiaaai Cfiaaadaaaiss lar. !1&2y.» - scp.exprt scp.stut* scp.dect* 

scp.prag» scp.cornp 



3.2.2.566.5 ZAs&a.a& SaaaitUaiiaa* - 



package sc. class is 



pr ocedur e 


c 


l.acc.const J 


pr ocedure 


c 


l-o IK. stub; 


procedure 


c 


1. choice; 


pr ocedure 


c 


.cnst.vo i d # 


procedure 


c 


.con stmt; 


procedure 


c 


.dec 1 ; 


procedure 


c 


l.dec l.reo; 


procedure 


c 


l.dscr t.rng; 


pr ocedure 


c 


.ascr t.r.v ; 


pr ocedure 


c 


_exp; 


procedure 


c 


.exp-vo id; 


procedure 


c 


. gen. par m} 


procedure 


c 


.header ; 


procedure 


c 


. i tern ; 


procedure 


c 


.i terati on; 


procedure 


c 


.name ; 


procedure 


c 


.narae.vo i d » 


procedure 


c 


.pack.def; 


procedure 


c 


l.param; 


pr ocedure 


c 


l.r ng.vo i d ; 


procedure 


c 


i.rep; 


procedure 


c 


l.stm; 


procedure 


c 


l.sbun t.body ; 


procedure 


c 


t.type.rng; 


pr ocedure 


c 


l.type spec; 


pr ocedure 


c 


1 .un s t.body ; 


pr ocedure 


c 


l.comp ; 


procedure 


c 


l.contp.as soc ; 


procedure 


c 


.gen.hdr » 


procedure 


c 


l.subp.def ; 


procedure 


c 


1 .task. spec ; 


end sc.ciass; 







3.2.2.566.6 ElaSfiLaliaS £afl"e.. - None 
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3.2.2.566.7 f.2.a!2&i£S. fii £ala S££Aiaiii£2£« - None 



3 • 2 • 2. 56 7 SjiSifiI.aS.La3* c S _ac c_co ns t 



3.2. 2. 567*1 £gLLflflSa« "* Invoke a statement checking procedure for a node 
in tne class ACCESS_CONSTRAlNT. 



3.2.2,567.2 A .&£iA!312,li2Lll.S« " SUBTREE (the first oarameter) is in the class 
ACCESS ..CONSTRAINT* 



3.2.2.567.3 IHfllfiaftQiaiifln Lananaae. • - This Subprogram is written in Ada • 



3.2.2.567.4 Uiag; R r ftqu,f. sj „v.8j.y,e " This subprogram is used recursively. 



3.2.2.567.5 Ne.2Ll£fl aiihjji. - sc„c lass 



3. 2*2. 567.6 dflSi Deoe ndenc I es. - None 



3.2.2.567.7 laLa&S. Q.2SLlll&2.aS±S.Z* ' None 



3.2.2.567.3 5.uaflL£aa£affl V i s i b i j i . - Outside Package. 



3.2. 2.567.9 Funct t on/Proce.d qre ,. - This subprogram is a Procedure. 



3.2.2.567.io F.arjn a i PacaisaiaL** - 

subtree : in cdm - ,type.c_ > node_ref ; — reference to diana node 
context : inout s tint chk. contex t_rec » — defines context in which 

this node appears 
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i. 2.2. 567. 11 iid.sriilaS.JiS. - None 



3.2.2.567.12 Aiafltiitlffl-* - 

case NODE type of 5UBTREE> is 
when VQI0> *> 

return 
when DSCRT_RANGE_S> »> 
INVOKE SC_DSCRT_R_S> 
when others *> 
INVOKE CL..EXP> 
end easel 



3.2.2.567.13 2iaaaa£iiS SfiSiaaSS £SQSr.aiia« - None 
3. 2. 2. 567. 14 taataiSS. at Uala itCU&lUiaS* - None 

3.2.2.568 isiaataaLaa* - ci_bik_stub 



3.2.2.568.1 PutaaSfi* • Invoke a statement checking procedure for a node 
in the class BLOCK_STUB. 



3.2.2.568.2 A.s.s.uj2D.iian.5« - SU3TREE* ( the first parameter) is in the class 
SLOCK.STUB. 



3.2.2.568.3 laal-SISQiaiiaa Laaauaaa* - This Subprogram is written in Ada 

3.2.2.568.4 y§.e.£ SaaatSLiiai^* - This subprogram is used recursively. 

3.2.2.568.5 Ne,s.ie.<2 Miiilia* - sc_class 
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3.2.2.568.6 Hail iSflSO.ilSQS.iaS* " None 



3.2.2. 56a. 7 laiaai Qsflsn^saaisS" - None 



3.2.2. 568.8 SiiaaiflSLafl £i.2iflJLLLL£* - Outside Package, 



3.2.2.568.9 Eufl£liflaZ££fl.SSi2liLS • • This subprogram is a Procedure. 



3.2.2.568.10 taoal £ 3Xaffl£&S£S • ~ 

subtree : in cdn» -> type.c - node -> r ef ; — reference to diana node 
context s inout s tmtchk • conte x t_rec» — defines context in which 

this node appears 



3 •2.2.56A. 11 5,iiSz£U.£ila« ~ None 



3.2.2.568.12 A.j.ao.rJ L £h.a. - 

case N0D6 type of SU3TR££> is' 
when 8L0CK> 

INVOKE SC_8LQCK> 
when others »> 
return 
end case; 



3.2.2.568.13 aiaflQfliiifi HSliaaSS £SOS£aiSll» - None 



3.2.2. 568 .14 £xaJBalSS, fli SH.U5.1ULSS* ~ None 
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3.2.2.569 Iuiaf-0.£L21 • " cl^choice 



3.2.2.569.1 EiAf.2Q.ia- - Invoke a statement checking procedure for a node 
in the class CHOICE. 



3.2.2.569.2 A.Siy.0ia£J.2QS» * SUBTREE (the first parameter) is In the class 
CHOICE. 



3.2.2.569.3 XjalafflSfliaiiaa Laiiauaas* - This Subprogram is written in Ada. 



3.2.2.569.4 Ussd, &S£UJ*£iy.£ly.« - This subprogram is used recursively. 



3.2.2. 569.5 Slsslsa JiJLtfitjLa* " sc..class 



3.2.2.569.6 Uaii QsaaaOaaaias* - None 



3.2.2.569.7 lata&i Qaaaua'&aa.Us • - None 



3.2.2.569.8 SuaataSLaai liliaiiil^* " Outside Package. 



3.2.2.569.9 Eunct t on/ Pro cedure . - This subprogram is a Procedure. 



3.2.2.569.10 EaLJsal P.aLajaaiar.5.- - 

subtree : in cdm_type.c_node_.ref; — reference to diana node 
context : inout stmt chk • context^rec J — defines context in which 

th i s node appears 
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3.2. 2. 569.il iig.e.-£iie,c.i5. - None 



3.2.2.569.12 iiaacUUffl* - 

case NODE type of SUBTREE> is 
when 0TH£RS> »> 

return 
when CQNSTRAINED> »> 

INVOKE SC_CONSTRND> 
when RAMGE> *> 

INVOKE SC_RANGE> 
when INOEX> *> 

INVOKE SC_INDEX> 
when others => 

INVOKE CL_£XP> 
end case; 



3.2.2.569.13 QiaaQaaiia fie.ss.aaas Ssaatalad* - ^one 



3.2.2.569.14 saaaais* al Qaia Ifcr.ustu£as- - None 



3*2.2. 570 iaafl£aar.aOl* ~ c I _cns t_voi d 



3.2.2. 570. 1 2.af»aa££« Invoke a statement checking procedure for a node 
in the class CUNSTRAIN£D_VOID. 



3.2.2.570.2 Asiaaaiiaa^* • SUBTREE (the first parameter) is in the class 
C0NSTRAINE0.V0I0. 



3.2.2.570.3 lialaaaaiaiiaa Laaaaaas* ~ This Subprogram is written in Ada. 



3.2. 2.570.4 ysssl &£&a£liy.&i2> - This subprogram is not used recursively. 
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3.2.2. 570.5 Ne.2,iesi alilHiD.' " sc_class 



3.2.2.570.6 tiasi, S2saafldaas.ias» - None 



3.2 .2 .570.7 lacaat D.sp.sna'&flaiaa • - None 



3.2.2.570.3 5U2fi£Q.2Laai - Outside Package. 

3.2.2.570.9 £un£ii2a^££2££lU£SL» - This subprogram is a Procedure. 



3.2.2.570.10 cflfjaaJL- Zsllib&Lsjls.* ~ 

suotree : in cdm.tyoe.c.node^r ef ; reference to diana node 
context : inout s tmt chk. context.rec » — defines context in which 

this node appears 



3.2.2.570.11 Sists-Sti e.£is. - None 



3.2.2.570.12 AlaacUllSl* - 

case NQOE type of SUBTftE£> is 
when CQNSTRAINED> »> 

INVOKE SC.CONSTRNO 
when V0I0> => 
return ; 
end case; 



3.2.2.570.13 iiaaaaaiiS. fjessaq es , fiSQS£alSil» - None 
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3.2.2.570.14 iiasalSS al Uala SiXLiiatJlLaS.- - None 



3.2.2.571 luaaLaataffl* ~ cl_constrnt 



3.2.2.571.1 Pu££asa» ~ Invoke a statement checking procedure for a node 
in the class CONSTRAINT. 



3.2.2.571.2 AsiiifflaliaHS* - SUBTREE (the first parameter) is in the class 
CONSTRAINT. 



3.2.2. 571.3 IjalSUSaaiJliiflQ L2Ili3Uaa£* ~~ This Subprogram is written in Ada. 

3.2.2.571.4 Uaaa &&&U£2il&ly.« " This subprogram is used recursively. 

3.2.2.571.5 Ne.£££4 klilain* ~ sc_c lass 

3.2.2. 571.6 tlaii Qa&&a4&a&i3£« - None 

3.2.2.571.7 lataai £saaQ<2anajL£.s • - None 

3. 2. 2. 571. d Sjiaataacafll ViSiaLLU*- - Outside Package. 

3.2.2.571.9 EanaliaQZELasaa'ur.e.* - This subprogram is a Procedure. 

3.2.2.571.10 E2£IEal P.lLsli2SiS£i« ~ 

subtree : in cdm_typ e. c_node_ref I — reference to diana node 
context : inout stmtchk.context_.rec; — defines context in wnich 

this node appears 
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3.2.2.571.11 iiaszit - Mone 



3.2.2.571.12 Aiaaiiiiia. - 

case NODE type of SUSTREE> is 
when RANGE> *> 

INVOKE SC_RANGE> 
when D5CR*T_AGG> »> 

INVOKE 5CJ>SCRMT_AG> 
when DSCRT_RANGE_S> »> 

INVOKE SC_DSCRT_R_S> 
when FIXE0> »> 

INVOKE SC.FIXED> 
when FLOAT> »> 

INVOKE SC.FLOATO 
when VOIO> 

re turn ; 
end case; 



3.2.2.571.13 aiaaQ2Sii£ ii£3iaa5£ — None 

3.2.2.571.14 £xaj2ftifiS al Ilaia lyiUSlUCfiS. - None 
3.2.2.572 SiAaaiaacaiS* - c I .dec I 



3.2.2.572.1 £u£aasa» - Invoke a statement checking procedure for a node 
in the class D£CL. 



3.2.2.572.2 AjsuaiaiiaaS- - SU8TREE (first parameter) is in the class 
OECL. 



3.2.2.572.3 lialSffiaaialiaa LaaauaaS* - This Subprogram is written in Ada. 
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3.2.2. 572.4 liiSfl H££iA£2ii§,ll» This subprogram is used recursively* 



3.2.2.572.5 NfiSiSfl kiiiUiQ* - sc.class 



3.2.2.572.6 Uasi QsaftQSLaflfiiai' ~ None 



3.2.2.572.7 ImafilL Dependenq i e s. - None 



3.2.2.572.6 Su.kpxa2f.a2 yisifliiii^ • - Outside Package. 



3*2.2.572.9 £y,£l£.ti2QZ.£,£2i»S.iU£S • " This subprogram is a Procedure. 



3. 2* 2. 572. 10 £a£3liii £.3Lii2Si.S£5.« *" 

suotree s in cdm.type .c„node_r ef ; — reference to diana node 
context : in cont ext_r ec ; — > defines context in which this node 

appears 



3. 2. 2,572. 11 S.idjs-£ile.c.ti. - None 



3.2.2.572,12 Aj.ao.j:i£!!a* - 

case NODE type of SU3TREE> is 
when C0NSTANT> *> 

INVOKE SC_CONSTANT> 
when VAR> *> 

INVOKE SC_VAR> 
when NUM8ER> »> 

INVOKE SC_NUMBER> 
when TYPE> *> 

INVOKE SC_TYPE> 
when SU8TYPE> *> 

INVOKE SC.SU8TYPE> 
when SUBPROGRAM_DECL> => 

INVOKE SC.SU8P.0ECL> 
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*hen ?ACKG6_J«=CL> *> 

INVOKF SC.P4CK.0eCL> 
when TASK_0ECL> => 

INVOKE SC.TASK„OeCL> 
when U3E> »> 

return; 
when EXCEPTIGN> »> 

return; 
when PRAGNA> »> 

INVOKE SC_PRAGMA> 
end case; 



3. 2 ,2. 572. 13 aiasaaaiis isssaaaj Sanaiaisa- - None 



3.2.2. 572. 14 tsaSftiSi al Qa£a Si£M£lU£SS. - None 
3.2.2.573 Suaataatas • - cl.decl.rep 



3.2.2.573.1 PjiLaaia* Invoke a statement checking procedure for a node 
in the class DECL.REP. 



3.2.2.573.2 AStSUlftLLaaS* - SUBTREE (the first parameter) is in the class 
DECL.REP. 



3.2.2.573.3 laaiaiaaisliiaa Laaauaaa* - This Subprogram is written in Ada. 



3.2.2.573.4 Uaaa Saaunaiiaix* - This subprogram is used recursively. 

3.2.2.573.5 fiiailsa* £iitiill« - sc_class 
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3.2.2.573.6 ti.2S.it Q,S,Q.l!l£§.Q.£.±ll* - None 



3 .2.2.5 73. 7 Ia£Sli &££.£Qd3r.£i.£2 • - None 



3.2.2.573.8 Sj*fcii£flS££i!3 lisiliiJ.ii.1* - Outside Package, 



3*2.2.573.9 g^Qct .Q.Qi.P.C.gSgtiUCS « " This subprogram is a Procedure. 



3.2.2.573.10 Fo.£2al £a£a!BSi££2- - 

subtree s in cdm.type.c^node^ref J — reference to diana node 
context s inout s tfntchk.context_.rec; — defines context in which 

this node appears 



3.2.2.573.11 iiflSrSit Sl£iS- - None 



3.2.2.573.12 Aiaoxiium,. - 

case NODE type of SUBTREE> is 
when AODRES> => 

INVOKE SC-AODRESS> 
when R£CORO_REP> »> 

INVOKE SC.REC.REP> 
when SIMPLE_REP> -> 

INVOKE SC_SIMP_REP> 
when others »> 

INVOKE CL„DECL> 
end case; 



3.2.2.573.13 aiaaaasiusL Jlssjiaaas, SaasLais-t* - None 
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3.2.2.573.14 iia£ai£S 21 0.21$ SltUfitULia. - None 
3.2.2.574 Sy.aaLa2C.a2l* - cl.dscrt.rng 



3. 2. 2. 574,1 Encaasa* - Invoke a statement checking procedure for a node 
in the class DSCRT.RANGE. 



3.2. 2. 574.2 4ssiigp.iio.QS. - SUBTREE (the first parameter) is in the class 
OSCRT.RA.NiGe. 



3.2.2.574.3 Ia>alSfl£Qi2iian LaaauaaS* - This Subprogram is written in Ada 

3.2.2.574.4 y.s.so; Saau.£SiveJ.x« - This subprogram is used recursively. 

3.2.2.574.5 Ne.s.iaa HL^LQ.* ~ sc_class 

3.2.2.574.6 »2S.i. BsaaQd£I12.Lss« - None 

3.2.2.574.7 Iaf.££& QsaafldaaalSS* - None 

3.2.2.574.8 Sy.aaf.aar.aia Vj.Siai.liiv.. - Outside Package. 

3.2.2. 574.9 £unaiianZ.£f.as§.2 : yX£* - This subprogram is a Procedure. 

3«2.2.574.io Eaisai Par-aasiaiis* - 

subtree : in cdm.„typ e.c_node_r ef ; — reference to diana node 
context : inout stmtchk.context.rec; — defines context in which 

th i s node appears 
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3.2.2.574.11 iide.r£LLac.i£ . - None 



3.2.2.574.12 AlflfltiiUrfl. - 

case NQOE type of 5UBTREE> is 
when CQNSTKAI ME0> ■ > 

INVOKE SC_CONSTRNO> 
when RANGE> *> 

INVOKE SC_kANGE> 
when IN0EX> »> 
return; 
end case; 



3.2.2.574.13 2iaan.2Sl.LS. *§L£S2££S Sanexalai* - None 

3.2.2.574.14 feiasalSS flt flala 1££U£JLU££S» - None 
3.2.2.575 SilllP.fJiar.iija* * c l^dscrt.r.v 



3.2.2.575.1 £il£aas&« ~ Invoke a statement checking procedure for a node 
in the class DSCRT_RANGE_VQ ID. 



3.2.2. 575.2 liSiii2p.iio.r15. - SU8TREE (the first parameter) is in the class 
DSCRT.RANGE.VOIO. 



3.2.2.575.3 LaaiSlSQiaiiaO. Language. - This Subprogram is written in Ada. 



3.2.2.575.4 llsaa* Recursi v e j y. - This subprogram is used recursively. 



3.2.2.575.5 Ne.s.isgl Miitlin. - sc_class 



3-1151 



"Use or disclosure of technical data and /or computer software 
is subject to the restrictions on the cover of this Document." 



ALS Comoiler Machine-Independent Section C5 Soec i f i ca t i on CR-CP-O059-C84 
1 November 19 Si 

3. £.2. 575.6 H^il iiSaa.Q^£Q£iaS« - None 

3.2.2.575.7 Ii£££i i2afl£as;e.nc.iaS • ~ None 

3.2.2. 575.8 Suh,p.taa£afl» 1 iiiaiiiiX • - Outs ide Package. 

3.2.2.575.9 EuQc.tiaa^P.Lae.aa'uxa. • This subprogram is a Procedure. 



3.2.2.575.10 £af-2ai P-acasaiata • - 

suotree ; in cdm_tyoe.c..node_ref ; — reference to diana node 
context : inojt stmtchk.context.rac; — defines context in which 

th i s node appears 



3.2.2.575.11 StiaaziUaSLii. - None 

3.2.2.575.12 AiaaUiiw* • 

case NODE type of SUBTREE> is 
when VQI0> *> 

return; 
when others *> 

INVOKE CL.USCRT.RNG> 
end case; 



3.2.2.575.13 iUaaaaalia "asaaaas £aaar.alaav - ^one 

3.2.2.575.14 taamalas al aaia Sir.y.c.^uxss.. - None 
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3.2.2. 576 SuaaLaSLLail* - cl.exp 



3.2.2.576.1 £u£ao.i£« - Invoke a statement checking procedure for a node 
in the class EXP. 



3.2.2. 576.2 A^suSiaiiaQS* * SU8TREE (the first parameter) is in the class 
EXP. 



3.2.2. 576.3 IialSSaalaliaQ LaaauaaS* *" This Subprogram is written in \da 

3.2.2.576.4 Uaaa" EaaULliiall* • This subprogram is used recursively. 
3. 2.2. 576.5 Naiiaa SstilaiO.* " sc^class 

3. 2.2. 576.6 Hasi asaaaa*anaias. - None 

3.2.2.576.7 ianaai Qaaaadsaaias • - None 

3. 2. 2. 576. 8 Sjiaataataitt ^iliailiil* - Outside Package. 

3.2.2.576.9 EanaiiaQ^Er.asaa'iir.a* ~ This subprogram is a Procedure. 

3.2.2.576.10 £a£.aai P-ar.aaaiar.s- - 

subtree : in cdm_typ e.c_node_ref ; — reference to diana node 
context : inout stmtchk.context -> recj — defines context in which 

this node appears 
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3.2.2.576,11 2iae.-£i£e.£l£. - None 



3.2.2.576.12 A iaatiiaa* - 

if CONTEXT requires a static expression> then 

if NQDE is not static> then 
ERROR 17500> 

end if; 
end if; 

case NODE type of 5UBTREE> is 
when AGGREGATE> »> 

INVOKE SC_AGGREGaT6> 
when ALLOCATQR> *> 

INVOKE SC_ALL0CAT0R> 
when BINARY> => 

INVOKE SC_ttINARY> 
when CuNVERSION> »> 

INVOKE SC.TYPE.GONV> 
when WE*8ERSHIP> *> 

INVOKE SC_MEM8ERSHIP> 
when NULL.ACCESS> »> 

return; 

when NUMERI C.LITERAL> i STRING_LITERAL> I USED_CHAR> «> 

return ; 
when PAR£NTHSI2E0> »> 

INVOKE SC_PARENTHZO> 
when QUAi.IFI£D> *> 

INVOKE SCJ3UAUFIED> 
when others »> 

INVOKE CL.NA«E> 
end case; 



3.2.2.576.13 aiasaaaiis Cssaaass Ssaaiaisst- - 

SEVERITY 

17500 E static expression required 



3.2.2.576.14 Ejuaalas. at &aia SiLuatuLss* - None 
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3.2.2.577 IilSLiif.fl.2Laa* "* c 1 „exp_vo i d 



3.2.2.577.1 Pj,Lfl.a5.£« - Invoke a statement checking procedure for a node 
in the class EXP.VQID. 



3.2. 2.577.2 ASiUialiaaS* - SUBTREE (the first parameter) is in the class 
cXP_VOID. 



3.2.2.577.3 IialSfflSalaiiaa L&nauagj*. • This Subprogra* is written in Ada 



3.2.2. 577.4 HiSSi jie.c.y.r.sj.ve.1^. - This subprogram is used recursively. 



3.2.2.577.5 SiSSlSSl iilHifl* - sc_c!ass 



3.2.2.577.6 Ha£i Qaa&adaaaiaS- - None 



3.2.2.577.7 ianaftt Saaaadaaaias • - None 



3.2.2.577.8 SuaaLaatiffl v I $ \ ° ' I X v « " Outside Package. 



3.2.2.577.9 Eunct ionZPrgcedur e. - This subprogram is a Procedure. 



3.2.2.577.10 £aLaai Pacaaatits* - 

subtree : in cdm_type . c_node_ref i — ■ reference to diana node 
context s inout stmtchk.context_rec; — defines context in which 

this node appears 
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3.2.2.577.11 - None 



3.2.2.577.12 Aj.afir.j,£hj2. - 

if NODE type of SU8TRE£> * VOID> then 

return; 
else 

INVOKE CL.£XP> 
end if; 



3.2.2.577.13 Qiaaa2£ii2 MaSSaaSS ££H££2t£d« - None 

3.2.2.577.14 £iai2ttlS2 21 Qlll SJt£U2i.il£££» - None 
3.2.2.579 Suifi.L2Sf.aD2* - c I _gen_pa rro 



3.2.2.578.1 £i,LaaS£« ~ Invoke a statement checking procedure for a node 
in the class GE NER I CP ARAM. 



3.2.2.578.2 A51U2ttii2Q5« - SUBTREE (the first parameter) is in the class 
GENE R I CP A R Art • 



3.2.2.578.3 laaiSSfiaialiaa LaaauaaS* - This Subprogram is written in Ada. 

3.2.2.578.4 y.s.»a" E££ii£.iiy.aly.« ~ This subprogram is used recursively. 

3.2.2.578.5 Nfisisd. &Uaia • - sc_class 
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i. 2. 2. 576.6 aiiai iiaaQdaa£ies« - ^ne 



3.2.2. 578.7 Iaf.2&i QgBggtiSQClSS* - None 



3.2.2. 578.8 Sii2ar.a2f.affl IL&i&ililX* - Outside Package. 



3.2.2.578.9 Functi on/ Procedure . - This subprogram is a Procedure. 



3.2.2.578.io ^arjaal P-acaaaiar-a* - 

suotree : in cdm_tyD e.c_node_ref ; — reference to d i ana node 
context s inout s tatchk. context_rec» — de f i nes * conte xt in which 

this node appears 



3.2.2.578.11 iiaszfkllaSll* - None 



3.2.2.578.12 A.j.aar.iifcffl* - 

case MODE type of SU8TREE> is 
when IH> 3 > 

INVOKE SC.IN> 
when IN_QUT> »> 

INVOKE SC.0UT> 
when SU8PRQGRAM_0ECL> »> 

INVOKE SC_SUBP_DECL> 
when TYPE> »> 

INVOKE SC_TYPE> 
end case; 



3.2.2.578.13 iiiaaaasiia fiaSSaaSl SfiQaLaiSll. - None 
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3 .2. 2 ,578.14 £xaaal&& 2L Qaia Si£U£iiif.SS« - None 
3.2.2.579 Siiher.iiar.ai2, - cl_header 



3.2.2.579.1 £4££25S» - Invoke 3 statement checking procedure for a node 
in the class HEADER. 



3.2.2.579.2 As.s.y.maiiaO,.S« - SUBTREE (the first parameter) is in the ciass 
HEA0E3. 



3.2.2.579.3 I2aiej3e.aiaii.aa LaO-SiiasS* - This Subprogram is written in Ada. 

3.2.2.579.4 U.s.aa Sas.u.£sJ.ve.l*. - This subprogram is not used recursively. 

3.2.2.579.5 &e.£i.sa !£iihj.n» - sc_c!ass 

3.2.2.579.6 HflSi Deoe.ndgnc ( - None 

3.2.2.579.7 laiaSi D^pen^en^ \ ^g. - None 

3.2.2.579.8 £y.aai.2a£ai2 Yiliailii** - Outside Package. 

3.2.2.579.9 ?Wl£!LLQ.a£LL2Si§.&!lLS. • ™ This subprogram is a Procedure. 

3.2.2.579.10 Fatmal PaLaaaiar-s. - 

subtree : in cdm^type.c^node.ref J reference to diana node 
context : inout s tut chk. conte xt.rec J — defines context in wnich 

this node appears 
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3.2.2. 5 79.11 ii£e.-£f.£e.£;L£. " None 



3.2.2.579.12 A.lafiLiltlffl- - 

case NODE type of 5UBTREE> is 
when FUNCTIOfO »> 

INVOKE SC_FUNCTIQN> 
when PROCEDURE> »> 

INVOKE SC_PRQCEDURE> 
when ENTRY> »> 

INVOKE SC.ENTRY> 
end case; 



3.2.2.579.13 'iiaSQ2iii£ tLSSiaaS-S tetXlULtea* ' "* one 



3.2.2. 579.14 £!amDj.£. a ai Qala it£.U£lU££l« - None 



3« 2.2. 580 Su2a£fi2 r .aai« ~* cl.item 



3.2.2.580.1 Pnxaass* "* Invoke a statement checking procedure for a node 
in the class ITEM. 



3.2.2.530.2 ^aSiUBaiiaas. ~ SUBTREE {the first parameter) is in the class 
ITEM • 



3.2.2.530.3 laalSlsaiaiJLflQ L2.QSUa££« - This Subprogram is written in Ada 



3.2.2.580.4 UiSll R.££.U£li££l£* • This subprogram is used recursively. 



3.2.2.580.5 Ngsisa" MilULfl'* " s c_c lass 
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3.2.2.58 0.6 tiaii Usa*Ql£Q£.i2.1« - None 

3.2.2.580.7 laiSSi Qsaiaa'aaaias • - None 

3.2.2.580.8 SuSfttaaiaa Visiaiiiiy.* - Outside Package. 



3.2.2.530.9 £uaaiiaa^£f»a£aa'yxa* . - This subprogram is a Procedure. 



3.2.2.580.10 £a£2iai ? anaw^ter. § . - 

suotree : in cdm„ 1[ tyoe.c_node <i .ref ; — reference to diana node 
context i inout stmt chk. context. rec » — defines context in which 

this node appears 



3.2.2.580.11 Ul&riUaail. - Mone 



3.2.2.580.12 UaacJUaa. - 

case NODE type of SUBTR£E> is 
-hen PACKAGE - 300Y> »> 

INVOKE SC_PACK_B00Y> 
when SU8PR0GRArt_B0DY> »> 

INVOKE SC_SU8P_B0DY> 
when TASK.80DY> *> 

INVOKE SC„TASK.BODY> 
when USE> =»> 

return! 
when A00RESS> *> 

INVOKE SC.A00RESS> 
when REC0R0_REP> »> 

INVOKE SC_REC_REP> 
when SINPLE_REP> *> 

INVOKE SC_SIMP_REP> 
when others a > 

INVOKE CL_DECL> 
end case; 
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3. 2.2. 580. 13 2ia2Qai£ia iaaiaaaS, £&QS.I§,i£St« " None 

3.2.2.580.1^ fciaaaias al ttaia iteuaiutaa- - None 

3.2.2.531 Siiaa£a2£3ffl» -cl_iteration 



3.2.2.581.1 P^Laasa* • Invoke a statement checking procedure for a node 
in th<* class ITERATION. 



3.2.2.581.2 ASLiU2aiiaQS« " SU8TRES tthe first oar ameter) is in the class 
ITERATION. 



3.2.2.581.3 XflaiSiaaiaiiaa Laaauaaa* ~ This Subprogram is written in Ada. 



3.2.2. 581.4 UiSa^ Saau.LSiy.liy.* • This subprogram is used recursively. 



3.2.2.581.5 ballad UiUlill* ~ sc^class 



3.2.2.581.6 Hail aaaandanaiaa* - None 



3.2.2.581.7 iacaai Qaaandanaiaa- - None 



3.2.2.581.8 Iuaac.a2C.aa! Viaiaiiily.* - Outside Package. 



3.2.2.581.9 EuncAiaa/LPJLaaaauxa* - This subprogram is a Procedure. 
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3.2.2.5 31.10 rO£2aJ. t &r,a2SJL£££» "" 

suotree : in cdm^tyo e.c_node - ref i — reference to diana node 
context : in- stmtchk.context^rec J — defines context in which 

this node appears 



3. 2,2,5a 1.11 Sj.d.e.-iif.e.c.is. - None 



3.2.2.581.12 UafiLii&iS* - 

case NODE of tyoe SUBTR£E> is 
when PGR> *> 

INVOKE SCJ=0R> *> 
when REVERSE> *> 

INVOKE SC_REVERSE> 
when WHILE> »> 

INVOKE SC.WHILE> 
when V0I0> »> 

return; 
end case; 



3.2.2.581.13 SLUaaaiiis. flaiaaaai ££a&£aisst« - None 



3.2.2.581.14 £x.amo.ias. al &ala lL£U£lU£££« - None 



3.2.2. 582 Su,|>o.r aa£a!2 • ~ c I ..name 



3.2.2.582.1 P.U£a°.S£» "* Invoke a statement checking procedure for a node 
in the class NAME. 



3.2.2.582.2 As.Siifflflii2.!lS« - SUBTREE (the first oarameter) is in the class 
NAilE • 
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3.2.2.5 4 2.3 X3»ai£ia£Q.ia.llfiD. Li.QL2Si2£S« ~ This Subprogran is written in Ada. 



3.2.2. 582.4 Uifijl iafi.iILSilS.il* - This subprogram is used recursively. 



3* 2* 2. 582.5 t!asi.5d HiUlin* - sc.class 



3 .2. 2. 582.6 tiasi £saaOilaQaia£« None 



3.2.2.582.7 iataas. iiaaaarlanaias- - None 



3.2.2.582.8 Suaataatasi liaiaiiitl* - Outside Package. 



3.2.2. 582.9 £uQC^iaaZ.iiia£ " This subprogram is a Procedure. 



3.2.2. 582. 10 £afjflai • " 

subtree : in cdm_type. c.node.r ef i — * reference to diana node 
context s in stmt chk .context_rec; — defines context in which 

this node appear s 



3.2.2.582.11 ii^s-£tlaai5. - None 



3.2.2.582.12 AiafiLiiUffl- - 

case NODE type of SU8TREE> is 
when ALL> *> 

return; 
when ATTRI8UTE> »> 

INVOKE SC_ATTRI8UTE> 
when ATTRI3UTE_CALL> -> 

INVOKE SC„ATTR.CALL> 
when FUNCTI0N_CALL> => 

INVOKE SC_FUNC_CALL> 
when IN0EXE0> => 
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SC.INDEXEO> 
-hen SELcCT£D> => 

INVOKE SC.SELECTEO> 
when SLICE> => 

INVOKE SC_SLICE> 
when USED_UBJECT_ID> »> 
INVOKE SCJJSED.OBIO 
end case; 



3.2.2.582.13 £LUaaaaiia S&siaa&i Saasiaiaa- - None 

3.2.2.532.14 fcsaaalsLs. ai ItLsiaiutas* - *one 



3.2.2.563 5LuHa£aaLa!a« ~ cl..name_void 



3.2.2.583.1 2,U£aaS£« ~ Invoke a statement checking procedure for a node 
in the class NAME.VGID. 



3.2.2.583.2 AiSiiaaiiaOS* - SUBTREE (the first parameter) is in the class 
NAME J/0 ID. 



3.2.2.583.3 IsalafflaaiSLiiaa Laasuaaa* — This Subprogram is written in Ada. 

3.2.2.553.4 Uasa &&£ar.£i.veJ.X« - This subprogram is used recursively. 

3.2.2.583.5 N.e.s.ie.2 ttililia* - sc.class 

3. 2.2. 583.6 Hail Oeoen de nc ) e-s. - None 
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3.2.2.5S3.7 laiaSi IiS H2.Q.SL SCaiS 2 • "* None 



3.2.2. 583.3 iiiHacaataa lilikilily.* - Outside Package. 



3.2.2.533.9 Eu.aa£iaa££Lafi2.a'uxs« • This subprogram is a Procedure. 



3.2.2.533.10 £2Lial P.aLaiB&i££2« - 

suotree • in cdm - .tyoe.c - node - ref » — reference to diana node 
context inout stmtchk. context_rec» — defines context in which 

this node appears 



3.2.2.583.11 a.iaaz£ii&aJL£« - None 



3.2.2.583.12 UaflLil&fli* - 

case NODE type of SU8TREE> is 
when V0I0> *> 

return; 
when others *> 
INVOKE CL_NAME> 
end case; 



3.2.2.583.13 liaaaaaiia Sasaaass £aa£r.aisd- - None 



3.2.2. 583. ia =x.asaiaa at Qaia iir.ua Iulss- - None 



3.2.2.584 iu.aar.aar.aGi* - ci_pack_def 
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3.2.2. 53<t.i 2,jiL£21£« " Invoke a statement cnecKing procedure for a node 
in the class P ACKAGE_0 EF. 



3.2.2. 584.2 A.ilUJBtt£ia£i5. - SUBTREE (the first parameter) is in the class 
PACKAGEDEF. 



3.2.2. 584. 3 Iialaaftalaliaa L2Jiaii2.2£« - This Subprogram is written in Ada. 



3.2.2.584.4 Ujad &aay,££iY.aiil« - This subprogram is not used recursively. 



3.2.2.584.5 Jiailso. iii.JLUi.IX • " sc_ciass 



3.2.2.534.6 tlflSi QegftHtisng \ e,s, . - No n e 



3.2.2.584.7 IaLaal QaafiQile.acJ.aS- - None 



3.2.2. 584. d Suaar.93C.aqi Ylsifrilifey.* • Outside Package. 



3.2.2.584.9 F T qqg^ i qn/ Pr. p cedu. r .e. - This subprogram is a Procedure. 



3.2.2.584.10 £ar.iai iataffiaiais* - 

subtree : in cdm.typ e.c.node^ref J — reference to diana node 
context : inout stmt chk • context_ref » — defines context in which 

this node appears 



3.2.2.584.11 JiiiarSIisalS* - None 
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3.2.2. 384.12 iJLaaLiiSffi* " 

case NODE type of SU8TREE> is 
when PACKAGE. SPEO »> 

INVOKE SC.PACK.SPEO 
when R£NAWe> *> 

INVOKE SC_RENAME> 
when others *> 
return; 
end case; 



3.2.2.584.13 iiasaaaiia Jiaaaaaas Sanataiaa- - None 



3.2.2.584.14 jaasaiaS 2l Qaia Sif-iiS tUHaS* - None 



3.2.2.585 SitaaiafiLaai* ~ c I .par am 



3.2.2.585.1 £ar.aaia« - Invoke a statement checking procedure for a node 
in the class PARArt. 



3.2.2.535.2 ASSUaalianS* ~ SUBTREE (the first parameter) is in the class 
PARAM. 



3.2.2.585.3 l2B2lama&la£iaQ, LaO.£uasS« ~ This Subprogram is written in Ada. 



3.2.2.585.4 Usaa" &a£U£li.y.S..Ly.* "* This subprogram is not used recursively. 



3.2.2.585.5 Ne.a£ag\ Hl£!lifl« ~ sc_class 



3.2.2.585.6 tiaii. ttaaaaa'anaiaa* ~ None 
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i. 2. 2. 58 3. 7 laxasl ££aSQa£Q£±£S« ~ None 



3.2.2.585.8 Subpr_ogc^m V j,s j p t f, [fry. - Outside Package. 

3.2.2.585.9 £^Qaiiaa£E,£a£ - This subprogram is a Procedure. 

3.2.2.585.10 £2L2a! 2ar.ai2££.£££. - 

subtree : in cdm_type.c_node_.ref; — - reference to diana node 
context : input s tint chk • context.rec » — defines context in which 

th i s node appears 

3.2.2.535.11 Uafi-SUaaiS- - None 

3.2.2.585.12 UaaLil&ffl- - 

case NODE type of SUBTREE> is 
when IN> »> 

INVOKE SC_IN> 
when 0UT> i IN_0UT> »> 
INVOKE SC_QUT> 
end case; 

3.2.2.585.13 {Uasaasiis fiasaaaas £aaa£aiaa;- -None 

3.2.2.585.14 feiaiaaisa ai Qaia Lfcmalutas- - None 

3.2.2.53b iuaaLaacai* - cl_rng_void 
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3.2.2. 536.1 iii£.fiL21S.« " Invoke a statement checking procedure for a node 
in the class RANGE. VQIQ. 



3.2.2.586.2 AiSUaJftiiaQS* - SUBTREE (the first parameter) is in the class 
ANGE.VOID • 



3.2.2.586.3 lBftJ.sa£!l£.ai±P.Q. La.nauaas» ~ This Subprogram is written in Ada. 



3.2.2. 58o. 4 Siissl &£C.y.r.sj.y.eJ.y.. ~ This subprogram is used recursively, 



3.2. 2. 536. 5 N&SiSd, HilHin • . - sc. class 



3.2.2. 586. o tla^i &£a£Hd£!l£i££» - None 



3.2.2.586.7 Ia£.a£i QSftSadftaiiiSS . - None 



3.2.2. 586.8 SuafitSSLai YiliailJUY.* " Outside Package. 



3.2.2. 586.9 £,'A!l£.LL2Q.LZL2£2.!lllL2, • ~ This subprogram is a Procedure. 



3.2.2. 586. 10 £af.2»al ZZLZ2iS.$.SX.l • " 

subtree s in cdm.type.c.node.ref » — reference to diana node 
context : inout stmtchk. context. rec» — defines context in which 

this node aooears 



3.2.2.586.11 Si de-Effects. - None 
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3.2.2.5*6. 12 Aj.20.rJ.lh.21- - 

case NODE type of SUtiTREE> is 
*hen VOID> *> 

return; 
when RANGE> *> 

INVOKE SC_ftANGE> 
end case; 



3.2.2.586.13 Qia.2Q0.s.£ic. SSlSaaSi SfiOStalSd- - None 



3. 2. 2. 536. 14 feXSiBttisa 2t 2 112. Slf-U£iU£aS« ~ None 



3.2.2.587 Su&flHaSLaS* - cl_rap 



3.2.2.587.1 £^££0.55.. - Invoke a statement checking procedure for a node 
i n the class REP • 



3.2.2.587.2 As.s,y.aaiiaa5. - SUBTREE (the first parameter) is in the class 
REP. 



3.2.2.587.3 Il2l£!a£QiaiJ.P.Q "* This Subprogram is written in Ada. 

3.2.2.587.4 E££.UX£iy.2J.y.* " This subprogram is not used recursively. 

3.2.2.587.5 Ne.ii.g5j iHltlla* ~ sc_class 

3.2.2.587.6 Jio.s.1 &sae.Qde.ncj.&s.. - None 
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3.2.2. 53 7.7 LlLl&k iiSaSD.il*0,£iSi« " None 



3.2.2.587.8 Siitiato.Ojr.aiii Vxsiaii.il)t« ~ Outside Package. 



3.2.2. 537.9 fiAHSit.L2flLZ.L2S5.Si.llLS.* - This subprogram is a Procedure* 



3. 2.2. 587. 10 £arjial 2. aLil2£ £.££.£• • 

subtree : in cdm_type. c„.node_ref ; — reference to diana node 
context s inout stmtchk.context^rec; — defines context in which 

this node appears 



3.2.2.587.11 ii<i£z£.ii££.l5.» - None 



3.2.2.587.12 Aj.ao.rJ.iHjB. ~ 

case NODE type of SU3TREE> is 
when AOORESS> «> 

INVOKE SC.AOORESS> 
when RECORD. REP> «> 

INVOKE SC„REC.REP> 
when SIMPl£_R£P> => 
INVOKE SC.SIMP.REO 
end case; 



3.2.2.537.13 iUaaQaiiia *£.S£aaaS SSQS£3ia^« - None 



3. 2. 2. 537.1 a iiaaaisa at Qjia Sl£aalu£ss- - *one 



3.2.2.588 Suaa£22£affl« ~ cl_stm 
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3.2.2.538.1 - InvoKe a statement cnecking procedure for a node 

in the class ST*. 



3.2.2.588.2 iSSUEaliaHS* - SUBTREE (the first parameter) is in the class 
STM. 



3.2.2.588.3 LsaiSaaaiaiiaQ. LaaaUSSS • - This Subprogram is written in Ada. 

3.2.2. 588.4 U§.e£ i_9.c.y.£.U.y.£iY.» - This subprogram is used recursively. 
3.2.2. 588.5 Nfis.t;sg; ].i£.!ia» - sc_class 

3.2.2. 538. b Han fisasa-tsaaias- - None 

3.2.2.588.7 Iarc^i OSaSaiaaaiUS. - None 

3.2.2.588.8 lufifiLSSLaa iisiailii** - Outside Package. 

3.2.2.588.9 £aaaiiaa£P» r .2.saa , -l£S» - This subprogram is a Procedure. 

3.2.2.588.10 Eaiaai Eacasslsis- - 

subtree : in cdm_typ e.c_node_ref J — reference to diana node 
context : inout stmtchk.context_.rec » — defines context in which 

th i s node appear s 

3.2.2.588.11 S.id.£-£li££.£.i. - Mone 
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3.2.2. 538.12 AJ.(iaLiItl!S« ~ 

case NODE type of SUBTREE> is 
when LQOP> => 

INVOKE SC.L00P> 
. when ABQRT> »> 

INVOKE 5C.AB0RT> 
when ACCEPT> •> 

INVOKE SC.ACCEPT> 
when A5SIGN> »> 

INVOKE SC.ASSIGN> 
when 8L0CK> »> 

INVOKE SC.Bl.0CK> 
when CASE> *> 

INVOKE SC.CASE> 
when CO0E> *> 

INVOKE SC.CO0E> 
when CQNO.ENTRY> »> 

INVOKE SC.C0N0.ENTR> 
when 0ELAY> *> 

INVOKE SC.QELAY> 
when ENTRY. CALL> *> 

INVOKE 5C.ENTR Y.CAL> 
when £XIT> *> 

INVOKE SC.EXIT> 
when GUT0> »> 

INVOKE SC.G0T0> 
when IF> *> 

INVOKE SC.IF> 
when LA8£LE0> 

INVOKE SC.LABELED> 
when NAME0.$TN> 

INVOKE SC.NAMED.STM> 
when NULL.STM> 

return; 
when PRAGMA> 

INVOKE SC.PRAGMA> 
when PR0CE0URE.CALL> 

INVOKE SC.PROC.CALL> 
when RAISE> 

INVOKE SC.RAISE> 
when RETURN> 

INVOKE SC.RETURN> 
when SELECT> 

INVOKE SC.S5LECT> 
when TERMINATE> 

INVOKE SC.TERMINATE> 
when TIM£O.ENTRY> 

INVOKE $C.TIMED.ENTR> 
end case; 
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3. 2,2.38b. 13 aiaaaastia iasaaaas S^asLaiaa- - ^one 

3.2.2.588.14 £xa2aisi 2l £a£a SJtLUatUlSS* - None 

3.2.2.589 2uaa£aar.asa« - ci.sbunt.body 



3.2.2. 589.1 Suiaasa* - Invoke a state-nent checking procedure for a node 
in the class SU8UN IT30DY. 



3.2.2.589.2 iSSUfflaiiaaS* - SUBTREE (the first parameter) is in the class 
SUBUNI t.BOOY. 



3.2.2.589.3 IialsaSfliaixaa Laaauaai- - This Subprogram is written in Ada 

3.2.2.589.4 Uiia &S£iif.SiY.£l*» - This subprogram is not used recursively. 
3. Z. 2. 589.5 Ngs.i5a bliUlia- - sc.class 

3.2.2.589.6 Hasi, £saands.asJLai • - None 

3.2.2.589.7 IaLHSl Qaa£a£&I2ai£.S» - None 

3.2.2.589.8 SaaaLaStaS Vi^iaiiil^. - Outside Package. 

3.2.2.589.9 &u.a££.iaa££Laa&lat£« - This subprogram is a Procedure. 
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suatree : in com..type .c^node^r ef 5 — reference to diana node 
context : inout stmtchk.context - .ree» — defines context in wn i ch 

this node appears 



3. 2.2. 539,11 Ha2.zfLLLS.Sl2.* ~ None 



3. 2. 2,589. 12 Aiaaciiiia* - 

case NODE type of SU8TREE> is 
when SUBPROGKArt - .dOOY> »> 

INVOKE SC_SUBP_80DY> 
when PACKAGE. 9O0Y> »> 

INVOKE SC.P ACK_80DY> 
when TASK_800Y> »> 

INVOKE SC.JASK_BQDY> 
end case; 



3.2.2.589.13 iUaaaaiiia «SiiaaSS fie.QS.Lale.al, - None 



3.2.2. 589.14 Nasals* al Qaia iitiifiiutaa* ■ - *one 



3.2.2,590 Siiaar.2af.aai' "* cl_type_rng 



3.2.2,590.1 PyXaasa* Invoke a statement checking procedure for a node 
in the class TYPE.RANGE. 



3.2.2.590.2 Aasiiaaiiaili* * SUBTREE (the first parameter) is in the class 
TYPEJUNGE. 
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3. 2.2 .590. 3 l22i£iJ£a£aLLLaQ L3.Q£U^aS« " This Subprogram is written in Ada 



3.2.2.590.4 yLisd &&£Ur.&iy.3.J.Y.« ~ This subprogram is used recursively. 



3.2.2.590.5 Ngs^tssl atitDJlfl* - sc_class 



3.2.2.590.6 yasl p.saaaiiaa£i&s • — None 



3.2.2. 590.7 Taxasi asaSQd£aaiS5- - None 



3.2.2.590.8 Suapxaanaa miailiiy.- - Outside Package. 



3.2.2.590.9 £iiaai.iaa££liasaiur.£« ~ This subprogram is a Procedure. 



3.2.2.590.10 £a£!2ai P-2Lll2SiS£S.« - 

suotree : in cdm^tyo e. c^node^ref 5 — reference to diana node 
context : inout stmtchk.context._rec; — defines context in wnich 

this node appears 



3.2.2.590.11 S.ia"£-£lf e.ais. - None 



3.2.2.590.12 Aj.aarj.iaai. - 

case NODE type of SUBTR6E> is 
when RANGE> «> 

INVOKE SC^RANGE> 
when others => 

INVOKE SC_C0NTRN0> 
end casei 
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3.2.2.390.13 2ia2Q2S.Ii£ £La.5iaaa.S Sanaialaa;. ~ None 



^•2.2. 5 9o.ia ixaaaiaa at Ha£a 2££U£j*.ui££« - None 



3.2.2.591 Sjikataataffl* - c l.type^spec 



3.2.2.591.1 P.y,LP.aS£« ~ Invoke a statement procedure for a node in the 
class TYPE.SPEC. 



3.2.2.5^1.2 As.s.ij:2»aii2Qi» ~ SUBTREE (the first parameter) is in the class 
TYPE_SPEC. 



3.2.2.591.3 laalsaaaialiiia LaQ.3ua&£« - This Subprogram is written in Ada 



3.2.2. 591.4 liiii Recurs.jye jy. - This subprogram is not used recursively 



3.2.2. 591. 5 !i£ilSd fcLLltlia* - sc.class 



3.2.2. 591.6 tiaSi PSQaQtigQC LSI* None 



3.2.2.591.7 iar.aa.fc. QaaaaaaQSuLas- - None 



3.2.2*591.8 SuliftLaaLaffl liSiaiXiJLy.- - Outside Package. 



3.2.2.591.9 PuQaiiaa^fJLasalilta* - This subprogram is a Procedure, 
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3.2.2, 591. 10 £2£23l ?.aLa!&£l££2 • - 

suotree i in cd«_type.c..node -1 ref j — reference to diana node 
context : inout st.ntchK.context^rec? — defines context in wnich 

th is node apoear s 



3.2.2.591.11 ii^£-£tf e.£is. - None 



3.2.2.591.12 AJ.Q.o.£i£hm.. - 

case NODE type of SU8TREE> is 
when CONSTRAINED> »> 

INVOKE SC.C0NSTRN0> 
when ACCESS> ■> 

INVOKE SC_ACCESS> 
when ARRA Y> => 

INVOKE sc_array> 
. when 0ERIVED> 

INVOKE SC.OERIVED> 
when FIX6D> «> 

INVOKE SC.FIXED> 
when FL0AT> *> 

INVOKE SC - FL0AT> 
when INT£GER> »> 

INVOKE SC. INTEGERS 
-~~wfr*T^ 1-PRIVATE> I PRIVATES 

I NY OK E SC_PRIVAT£>- 
when RECORD > => 

INVOKE SC-REC0R0> 
when TASK.SPEO »> 

INVOKE SC.TASK.SPEO 
when others =»> 

return ; 
end case; 



3.2.2.591.13 iilSQaiiis HS.1SA2.2A <z2.02.Lll2.&* - None 



3.2.2.591.14 £x.amoJ.££ at £U£a ltLil££ii£S£. - None 
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